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1 

L 


000 0 




• 


TITLE PR MS FT f * P00343B 03/19/75* 


8. 


9 

c 


nooo 

u uu u 








9 . 


•a 

._> 


000 0 
u u u u 


* 


SOFTWARE FOR THE PRCM PROGRAMMER FOR THE IMP 16L/16P. 


10. 




nnnn 

wwULi 








11 . 




o oro 




V*HE i\i 


USING IMP- 16 P Wl TH A CARD READER: 


12. 


o 


0000 

V *J \J \J 




1„ 


PRESS INITIALIZE. 


13. 


7 


0000 




2, 


SET PC (PROGRAM COUNTER) TO X* 7FQ0. 


14. 


a 


Q0QQ 




3. 


SET DISPLAY SWITCH T 0 PROG... DA I A POSI 1 1 OH*. .7 


15. 


9 


0000 




4. 


LOAD CARD DECK IN CARD READER. 


16. 


10 


0000 




5. 


PUSH RESET CN CARD READER. 


17. 


11 


oooo 


• 


6* 


WAIT UNTIL GREEN READY LITE IS LIT. 


18. 


1 2 


0000 




7. 


PUSH RUN CN PROCESSOR. 


19. 


13 


0000 




8. 


CARDS WILL BE READ IN. 


20. 


1.4 


oooo 


• 


9^ 


PROGRAM IS NOW READY TO USE. ..... ., 


21- 


1 5 


000 0 

M V# V V* 








22. 


1 ft 

X o 


oooo 

UUv v 








23. 


17 


oooo 








24. 


1 8 


nooo 








25. 


1 9 


oooo 


* 


WHE«* 


USING IMP-16L VI ITH A CARD READER: 


26. 


20 


oooo 




1. 


PRESS INITIALIZE. 


27. 




oooo 




2* 


PUT 2 CRBCOT C£RDS AT FRONT GF DECK. 


28. 


22 


oooo 


* 


3. 


PUT ABSCR DECK NEXT. 


29. 


2 3 


oooo 


* 


4. 


PUT CARD CECK..FQR PRMSFT NEXT. 


30. 


24 


oooo 


* 


5. 


PUT A GO CARD ON THE END. 


31. 


2 5 


oooo 


• 


6* 


PUT CARD CECK IN CARD READER. 


32. 


,.2.6... 


OJlQfl . .., _ 


.... . X 


~j 

.i-*-. ~. 


. BUSH... BESET OR C.AR.D ,.R£AC£R.. 




27 


oooo 




s. ■ 


WAIT UNTIL GREEN READY LITE IS LIT. * 


34. 


28 


oooo 




9, 


PUSH AUX1, ONE CARD WILL BE READ IN. 


35. 


29 


,0.00 0 




1Q. 


PUSH RUN. 


36. 


30 


oooo 




11. 


CARDS WILL BE READ IN. 


37. 


31 


oooo 




12. 


PROGRAM IS NOW READY TO USE. 


38. 
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32 


0000 




* PAGE 






39. 


3 3 


0 000 

i-/ w w w 




COMMANDS USED WITH PR MS FT : 


40. 


34 


0000 










41. 


35 


0000 




TERMINATOR IS CARRIAGE 


RETURN* CR 


42. 


36 


0000 










43. 


3 7 


0000 


» 


GCHEX ADDRESS) CR 




GO TO HEX ADDRESS. 


44. 


38 


0000 










45. 


39 


oooo 


• 


H CR 




READ °RCM TO WRITE BUFFER. 


46. 


40 


0000 










47. 


41 


0000 


• 


I CK {RUB GUT FIRST) 




READ COMPLEMENTED BINARY TAPE. 


48. 


42 


0000 










49. 


43 


0000 




J CK 




READ RLM CARDS TO TEMP BUFFER . 


50. 


44 


0000 










51. 


_ 45 


oooo 


. 


K CK t RUBQUT F IRST ) 




READ TRUE BINARY TAPE* 


52. 


46 


0000 










53. 


47 


oooo 




L CK 




READ RLM PAPER TAPE TC TEMP BUFFER. 


54. 


48 


0 00 0 










55. 


49 


oooo 




MIHEX ADDRESS) CR 




MOVE DATA STARTING AT HEX ADDRESS. 


56. 


50 


oooo 










57. 


51 


oooo 




N Ck 




READ P/N PAPER TAPE. 


58. 




oooo 










59. 


53 


oooo 




0 (HEX NUMBER) CR 




SET STARTING ADDRESS OF TEMP BUFFER • 


60. 


54 


QGQ-Q 










61. 


55 


oooo 




P CK 




CHECK IF PROM IS ERASED THEN PROGRAM. 


62. 


56 


oooo 










63. 


5,2 


.000.0 


< 


Q... Ck — 




PRINT THE CHECK SUM ,.0E . I HE - PRO , 


64. 


58 


oooo 










65. 


59 


oooo 


» 


RCHEX ADDRFSS) CR 




READ AND TYPE PROM STARTING AT HEX ADDRESS. 


66. 


50 


oooo 










67. 


61 


oooo 




S CK 




SET MODE. 


68. 


62 


oooo 










69. 


63 


oooo 




TCHi-X ADDRFSS ) CR 




TYPE MEMORY STARTING AT HFX ADDRESS. 


70. 


64 


oooo 










71 . 


65 


oooo 


m 


V I HFX ADDRFSS) CR 




VERIFY PROM TO WRITE BUFFER. 


72 • 


66 


oooo 










73. 


67 


oooo 


m 


WCHFX NUMRPR1 CR 




FILL TFMP BUFFER WITH HEX NUMBER. 


74. 


o o 


oooo 










75. 




UvVv - ~ 




X CK 




PRINT THF CHECK SUM OF THF WRITE BUFFER. 


76. 


70 


oooo 










77. 


71 


oooo 

V V/ v w 




Y I HE X ADDRFSS) CR 




PROGRAM PRCM STARTING AT HFX ADDRESS. 


76. 


72 


oooo 










79. 


73 


oooo 




7 Ck 




CHECK IF PROM IS ERASED. 


80. 


74 


oooo 










81. 


75 


oooo 








TYPE MODE. BACK ARROW. 


82. 


76 


oooo 










83. 


77 


oooo 




$ 




TYPE TEMP BUFFER ADDRESS. 


84. 


78 


oooo 










85. 


79 


oooo 




ALT MODE 




ESCAPE FROM KEYBOARD REQUEST. 


86. 


80 


oooo 










87. 


Bl 


oooo 




WRITE BUFFER IS FRQf* 


X* 


0E00 TO X'OFFF. FOR MM5203 CNLY THE 


88. 


82 


oooo 










89. 


83 


0CCG 




LOWtR BUFFER IS USED 


X* 


0E00 TO X«06FF. 


90. 
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84 


0000 








.PAGE 






91 . 


85 


0000 








• BSECT 






92. 


86 


0000 


2403 


B 


BSTART: 




3. + 3 


5 RECOVER FROM IN IT 


93. 


87 


0GO1 


0002 


B 






. + 1 


; DUMMY 


94. 


S3 


0002 


0003 


R 




_ 


. + 1 


; DUMMY 


95. 


89 


0003 


0304 


A 




• WORD 


SPACE 




96. 


90 


0004 


OOOB 


B 






. + 07 




97* 


91 


OOOB 


089A 


A 


SE TP L : 


♦ WORD 


SSETPL 


;SET WHICH PROCESSER. 


98. 


92 


OOOC 


0891 


A 


INTEST: 


• WORD 


[TEST 


; INPUT FROM KEYBOARD. 


99. 


93 


OOOD 


084 8 


A 


PUTC : 


. WORD 


PPUTC 


JWRITF TO TTY. 


100. 


94 


00 QE 


084C 


A 


GETC I 


.WORD 


PGETC 


; GET CHAR FROM TTY* 


101 « 


95 


OOOF 


0880 


A 


GECD: 


, WO RD 


PGECG 


;GET AND ECHO CHAR. 


102. 


96 


0010 


OOFF 


A 


BUFEND: 


.WORD 


255 


;L ENGTH OF ROM ADDRESS SPACE. 


103. 


97 




0342 


A . 


MESS A: 


. WORD 


HESS 


;PQ1NT£R TO. PRINT. MESSAGE. 


1Q4. 


98 


0012 


OOFF 


A 


MFF: 


• WORD 


OFF 


JMASK FOR LEAST BYTE. 


105. 


99 


0013 


01FF 


A 


K 5 1 1 : 


.WORD 


511 


?LENGTH OF 4K BUFFER. 


106. 


100 


0014 


..04510 


JL 


RQMT A; 


.WORD 


ROM I 


;P01NTER TO INCR ROM. 


1Q7. 


101 


0015 


048C 


A 


SPACA: 


. WORD 


SPAC 


;POINTER TO PRINT ONE S^ACE. 


108. 


102 


0016 


OOOF 


A 


KF: 


.WORD 


OF 


;MASK FOR LSD. 


109. 


103 .0017 


0000 


A 


FLA a: 


.WORD 


0 


; INDICATOR FOR HEX WORD. .... 


110. 


104 


0018 


cooo 


A 


AFL AG: 


. WORD 


0 


INDICATOR FOR ALPHA WC^D. 


111. 


105 


0019 


0000 


A 


WHAT: 


.WORD 


0 


; LAST 4 HEX WORDS. 


1 12. 


106 


001A 


0000 


A 


teHEP.E: 


. WORD 


0 


;LAST 2 ALPHA WORDS.. 


113. 


107 


001B 


001C 


B 


AC 0: 




1 




114. 


108 


001C 


OOiD 


B 


AC1 : 


. = 


. + 1 




115. 


109 aoio 


COIF 


B 


AC2 : 


_ 


. + 1 




116. 


110 


0011= 


001 F 


B 


AC 3: 




. + 1 




117. 


111 


001 F 


0046 


A 


K46: 


.WORD 


046 


; AS CI I F. 


118, 


112 


0020 


0002 


A 


RR ; 


• WORD 


2 


;R£P RATE. 


119. 


113 


0021 


000 A 


A 


PW: 


• WORD 


10 

JL \J 


iPULSE WIDTH. 


120- 


114 


0022 


0000 


A 


ROM : 


. WORD 


o 


^CURRENT ROM ADDRESS. 


121. 


115 


0023. 


OF 00 


.■..^L™..SJ9i*£LiJ-f"-...# 


.WO RO 


OEOO 


:START ADR WRITE BUFFER A T OEOO TO OFFF. 


122. 


116 


0024 


OFFF 


A 


ENOBUF: 


.WORD 


OFFF 


;END OF WRITE BUFFER. 


123 • 


117 


0025 


0470 


A 

r-t 


LNAITA: 


un o r\ 

41 ¥1 V-J 1 % L^ 1 


1 UA I T 
L- f 1 * 


; POINTER TO LONG WAIT. 


124. 


1 18. 


002.6- 


03.8H 




: ri .-OJri,£^C^-* ... 


. WORD 


OHEX 


;POINTER TO PRINT HEX WORO. 


125. 


119 


0027 


0351 


A 


CRLFA: 


.WORD 


CRLF 


^POINTER TO CRLF. 


126. 


120 


0028 


C465 


A 


RFADWA: 


. WORD 


REACWD 


^POINTER TO READ A PRQM WORD. 


127. 


12 1 


0029 


04EB 


A- 


LOKSA I 


.WORO 


LOKSE 


:POINTER TO SEE I F KEYBOARD. . JHIT . 


128. 


122 


0Q2A 


03 1C 


A 


HFXVAt 


. WORD 


HEX Y 


; PO INTER TO SEE IF HEX NUMBER. 


129. 


123 


002B 


007F 


A 


K7F: 


. WORD 


X »7F 




130. 


124 


002C 


COOO 


A 


RO : 


-WORD 


0 




131. 


125 


0020 


COOO 


A 


Rl : 


. WORD 


o 




132. 


126 


0G2E 


0000 


A 


R2: 


.WORD 


o 




1 33. 


127 


0C2J= 


0000 


A 


R3 : 


. WORD 


o 




134. 


128 


0030 


0000 


A 


SFLGS: 


• WORD 


0 




135. 


129 


0031 


0000 


A 


SAVSEL: 


m WORD 


o 




136. 


13 0 


0032 


7FD3 


A 


RE OCR : 


• WORD 


07FC3 


;16P READ CARD ROUTINE. 


137. 


131 


0033 


OCOO 


A 


BUFF AD : 


• WORD 


TBUF 




138. 


13 2 


0034 


OCOO 


A 


TBFAD: 


.WORD 


TSUF 




139. 


133 


0035 


060 3 


A 


CHAPGA: 


.WORD 


CKRG 


;CHECK IF PROTECTED. 


140. 


134 


0 036 


IFF F 


A 


K3FFF: 


.WORD 


03FFF 




141. 


135 


0037 


OFFF 


A 


AOMSK: 


. WORD 


OFFF 




142. 
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138 


003A 








- PAGE 




14 5* 


139 


003A 








•ASECT 




146. 


140 


0000 


0118 


A 






3118 


147. 


141 


0118 


CO 00 


A 




. WORD 


OfOtOfOtOiOfOtO 


148. 




0 119 


0000 


A 












Oil A 


0000 


A 












01 IB 


OQOO 


A 












one 


0000 


A 












01 ID 


0000 


A 












011E 


0000 


A 












01 1 F 


OQOO 


A 










142 


0120 


0060 


A 


I. PC OR 


_ 


060 


149. 


143 


0120 


0068 


A 


LDR 


— 


068 


150. 


144 


Q12€ 


.0001 


A 


ZERO 




1 


151. 


145 


0120 


0002 


A 


GTEO 


— 


2 


1 52, 


146 


0120 


0003 


A 


GOD 


— 


3 


153. 


14 7 


0120 


0004- 


A 


BIT! 


= 


4 


154. 


148 


012 0 


0005 


A 


NZRO 




5 


155. 


149 


0120 


OOOA 


A 


CYOV 




10 


156. 


150 


012C 


oooa 


A 


LTEO 




11 


. 157. 


151 


0120 


oooc 


A 


PDA 




12 


158. 


152 


012C 


0000 


A 


SEL 




13 


159. 


15 3 


0120 


00 OF 


A 


DATA 




15 


160. 


154 


0120 


OOOF 


A 


TEHPT 




15 


161. 


155 


0120 


0300 


A 






0300 


162. 
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156 


0300 








• PAGE 






163. 


157 


0300 






NSTART: 








164. 


158 


03 OC 


2C OB 


B 




JSR 


3SETPL 


5SET WHAT MACHINE USED. 


165. 


159 


030 1 


2C?7 


R 




JSR 


3CRLFA 




166. 


160 


0302 


2C11 


B 




JSR 


3MESSA 


; PR INT NAME OF PROGRAM 


167. 


16 1 


0303 


06FF 


A 




- WORD 


MSG 




168. 


16? 


0304 






SPACE: 








169. 


163 


03G4 


4D10 


A 




Li 


1,16 


;ZERC STACK . 


170. 


164 


0305 


4400 


A 


SPACE1 : 


PULL 


0 


;D0 IT. 


171. 


165 


0306 


49FF 


A 




AISZ 


1 1-1 


; DONE ? 


1 72. 


166 


0307 


21FD 


A 




J HP 


S^ACEl 




173. 


167 


0308 


?C27 


B 




J SR. 


3CRLF A 




174. 


168 


0309 


0A80 


A 




PFLG 


2 


; RESET S EL FLAG 


175. 


169 


030 A 


4C3 F 


A 




Ll 


0#03F 


;ACQ = ASCII ?. 


176. 


170 


0308 


2 COD 


B 




JSR 


3PUTC 


:PRINT IT. 


177. 


171 


030C 


4C20 


A 




Li 


0,020 


;ASCII SPACE. 


178. 


172 


03 OD 


2 COD 


B 




JSR 


apu tc 


;TYP£ IT. 


179. 


173 


030E 


294C 


A 




J SR 


START 


;GET CHAR. HEX yRO IN W HAT » ALPH 


IN WHERE. 180. 


174 


03 OF 


2909 


A 




JSR 


SMTHNG 


; CHECK FGR ALPHA CHAR. 


181. 


175 


031 0 


2.000 


£ 




J MP 


8ST ART 


;T0 START. 


182. 


176 


031 1 


801A 


B 




LD 


0* WHERE 


; GET LAST 2 ALPHA CHAR. 


183. 


17 7 


0312 


6012 


B 




AND 


0 1 MFF 


;L E AVE JUST THE LAST. 


184. 


178 


0313 


C104 


A.. 




ADD 


Q i L 1ST 


; HAKE POINTER TO ADDRESS. 


185. 


179 


0314 


3281 


A 




KCP Y 


0,2 


;MOVE TC AC2. 


186. 


180 


0315 


8019 


B 




LD 


0,WHAT 


5 GET HEX WORD 


187. 


JLSJL 


031,6 


££00 


A 




LQl~- 


3,123 


;.PUI P01MIER IN 3. ... 


188. 


18? 


0317 


23C0 


A 




JMP 


f 3 ) 


?G0 THERE 


189. 


183 


0318 


06E8 


A 


LIST: 


»yQRD 


ALIST 




190. 
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184 


031 9 








.PAGE 






191 • 


18 5 


3319 






» 


JSR 


SMTHNG 


; CHECK IF AN ALPH CHAR RECEIVED 


192. 


186 


0319 








NO ALPHA WORD RECEIVED 




193. 


187 


0319 






* 


NORMAL 


RETURN 




194. 


X 3 JEi 


03 IS 














195. 


189 


0319 






SMTHNG: 








196. 


190 


0319 


7818 


B 




ISZ 


AFLAG 


;IF -1 NC AL PA INPUT. 


197. 


19.1 


031 A 0201 


A 




RTS 


1 


; NORMAL RETURN 


198 . 


192 


0316 


0200 


A 




ftTS 




?N0 ALPHA FLAG 


199. 


19 3 


03 1C 














200. 


19.4 


031C 






• 


JSR 


HEX Y 


5CHECK IF A HEX WORD RECEIVED, 


201. 


195 


03 1C 








NO HEX 


NUMBER RETURN 




202. 


196 


031C 








HEX NUMBER RETURN 




203. 


197 


03 1 C 














204. 


198 


03 1C 






HE XY : 








205. 


199 


031 C 


7817 


B 




iSZ 


FLAG 


;SKIP IF NO HEX 


206. 


200 


0310 


0201 






RTS 


1 


;HEX RETURN. - . 


207. 


201 


031E 


0200 


A 




KTS 




;N0 HEX RETURN. 


208. 


20 2 


031F 














209. 


203 


031F 














210. 


204 


031F 






* 


CREATE 


A FCUR DIGIT HEX 


WORD 


211 . 


205 


031F 














212. 


206 


03 IF 














213. 


207 


031F 


8419 


B 


THFX: 


LD 


1 » WHAT 


iGET WORD 


214. 


208 


0320 


5D04 


A 




SHL 


1,4 


; MAKE ROOM FOR NEW 


215. 


209 


0321 


nn 

, X w w 


A 




RADD 


0*1 


5 MAKE WORD 


216. 


210 


0322 


A419 


B 




ST 


1 ,WHAT 


? STORE WORD. 


217. 


211 


0323 


A017 


B 




ST 


0*FLAG 


;FIX FLAG. 


218. 


212 


0324 


213C 


A 




JHP 


NOW 


% RE TURN 


2 19 • 


213 


0325 














220. 


214 


0325 






GO i 








221. 




3».2>.,-5- 


29F6 


A 




. JSR 


HEXY 


;CHECK FOR HEX CHAR 


222. 


216 


0326 


2000 


B 




J MP 


BST ART 


;T0 START. 


223. 


C L f 


/* *% *-» -* 


i 


r* 






*u R i_ r « 




224. 


218 


0328 


2419 


B 




JMP 


3WHAT 


;G0 TO ARGUMENT 


225. 
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219 


0329 








.PAGE 








226. 


220 


0329 






* 


aSR 


GE T 


GET CHAR FROM TTY 




227. 


22 1 


0329 








HEX RETURN 


HEX NUMBER IN ACO 




228. 


222 


0329 






• 


SPECIAL RETURN 


ASCII CHAR IN ACO 




229. 


22 3 


0329 






• 


ALPHA 


RETURN 


HEX NUMBER IN ACO 0-13 


{G-Z ) 


230. 


224 


0329 








USES > 


*C0 






231. 


225 


0329 
















232. 


226 


0329 


2C0F 


B 


GET: 


JSR 


aGECO 


;GET CHAR IN ACO 




233. 


227 


032 A 


602B 


B 




4N0 


0*K7F 


;MAKE 7 BIT ASCII. 




234. 


228 


032B 


El OF 


A 




SKG 


0,K39 


;SKIP I F GT 9 




235. 


229 


Q32C 


E10E 


A 




SKG 


G,K30 


5SKIP IF 0-9 




236. 


230 


0320 


2102 


A 




J HP 


HEX 


;KEEP CHECKING NOT 0-9 




237. 


2 31 


032E 


6016 


B 


FIX: 


AND 


0*KF 


; MASK OFF 




238. 


232 


032F 


02-00 






KTS 




. ; CHAR IS HEX 




239. 


2 33 


0330 


F01F 


B 


HEX: 


SKG 


0,K46 


1SKIP IF GT F 




240. 


2 34 


03 31 


E 10 B 


A 




SKG 


0 f K40 


; S K I P IF A-F 




241. 


235 


0332 


2102 


A 




JMP 


ALPH 


;N0 T A HEX NUMBER 




242. 


236 


033 3 


4809 


A 




A I S Z 


0,9 


; M AK E HEX NUMBER 




243. 


237 


0334 


21F9 


A 




JMP 


FIX 






244. 


233 


0335 


F108 


A 


A I PH: 


SKG 


0 * K5 A 


;SKIP IF NOT ALPHA GT 


Z. 


245. 


239 


0336 


E01F 


B 




aKG 


0*K46 


;SKIP IF GT G-Z. 




246. 


240 


0337 


0201 


A 




RTS 


1 


; SPEC! AL 




247. 


241 


0338 


0103 


A 




SUB 


0tK47 


;MAKE A NUMBER BETWEEN 


0-13 


248. 


242 


0339 


0202 


A 




RTS 


2 


; BETWEEN 0-13, { G-Z ) 




249. 


243 


03 3 A 
















250. 


244 


013 A 


0 03 9 




K3 9 : . . 


.WORD 


039 






251. 


245 


033 B' 


002 F 


A 


K30: 


* WORD 


02 F 






252. 


246 


033C 


0047 


A 


K47: 


• WORD 


047 






253. 


247 


0330 


0040 




K40: 


» WORD 


040 






254. 


248 


033E 


005A 


A 


K5 A : 


* WORD 


05A 






255. 


249 


033F 


0070 


A 


AL MOO: 


* WORD 


070 


SASCII ALTMODE 




256. 




034 G 


GOOD 


A 


CR R » 


• WORD 


00 


;ASCII CARRIAGE RETURN 




257. 


251 


0341 


007E 


A 


ESC: 


• WORD 


07E 


JASCII ESCAPE, 




258. 
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252 


0342 








. PAGE 






259. 


253 


0342 






» 


JSR 


3 v E S S A 


PRINT MESSAGE 


260. 


254 


0342 






• 


ADDRESS 


OF MESSAGE 




261. 


255 


0342 






* 


RETURN 






262. 


256 


0342 






* 


PRINTS 


MESSAGE UNTIL A 


WORD OF ALL 0 FOUND 


263. 


257 


0342 














264. 


258 


0342 






ME SS : 








265* 


259 


0342 


2913 


,.4 




JSR 


SAVE 


:SAVE ALL REG 


266. 


260 

t. U v 


0343 


4700 


A 




PULL 


3 




26 7. 

C **P I * 


261 


0344 


4300 


A 




PUSH 


3 




268. 


262 


0345 


8 BOO 


A 




LD 


2, t 31 


:GET ADDRESS OF MESSAGE 


269 . 


263 


0346 


8200 


A 


L 1 : 


LD 


0,(2) 


:GET WORD 


270. 


264 


0347 


4800 


A 




A ISZ 


0,0 


:SKIP IF DONE 


271 . 


265 


0348 


2102 


A . 




JMP 


KEEP 


; KEEP GOING 


272. 


266 


0349 


2930 


A 




JSR 


RFTRV 


:GET SAVED RFG. 


273* 


267 


034 A 


020 1 


A 




RTS 


1 


IRETURN +1 


274* 


268 


034B 


5.aF8. 


A 


KEEP : 


RQR 


0 t 8 


; HQ V E MOST TO LEAST 


275. 


269 


034C 


2C0D 


B 




JSR 


3PUTC 


: PR INT IT 


276. 


270 


0340 


8200 


A 




LD 


0 » i 2 ) 


: PR INT LOW ORDER 


277. 


.271 


03 4 E 


2 COD 


a 




JSR 


apuTC 




278. 


272 


034F 


4A01 


A 




A ISZ 


2,1 


; POINT TO NEXT WORD 


279. 


273 


0350 


21F5 

•c_ A. » 


A 




JMP 


L 1 


: GET MORE 


280. 


2X4 


0351 














281. 


275 


0351 






• 


JSR 


3CRLFA 


PRINT CR LF 


282. 


276 


0351 














283. 


277 


0351 


4C0D 

:■ ... „- I, W \£ 4-*, , 


A,. 


ro l F ; 


L I 


0 » 00 




284* 

.... £~ MIX* 


278 


0 352 


2C0D 






JSR 


3PUTC 


5PRINT IT 


285. 


279 


0353 


4C0A 


A 




L I 


0, OA 




286. 


280 


0354 


2C0D 


B 




J SR 


3PUTC 


SPRINT IT* 


287 . 


281 


0355 


0200 


A 




RTS 






c u o • 


28 ? 


03 56 














2A9- 


283 


0356 






.SAVE: 








290. 


284 


0356 


AC1F 


B 




ST 


3,AC3 


;SAVE AC3. 


291. 


285 


0357 


A 810 


B 




ST 


2 f A C 2 


5 SAVE AC 2* 


292* 


286 


03 58 


A41C 


B 




*T 


It AC I 


;SAVE AC1* 


293. 


287 


0359 


A01B 


B 




ST 


O.ACO 


;SAVE AC 0. 


294. 


288 


035A 


0200 


A 




RTS 




; RETURN 


295. 
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289 


035B 








- PAGE 








296. 


290 


03 5 B 
















297. 


291 


035B 








JSR 


ST APT 




? GE T CHAR. 


298. 


292 


035B 






* 
* 


kETURN 


AFTER A CARRIAGE 


RETURN HAS BEEN TYPED. 


299. 


29 3 


035B 






* 


SPECIAL 


CHAR RETURN 




300. 


294 


035B 
















301. 


295 


035B 
















302. 


29 6 


03 5 B 






» 

»-.« 


&LTMQQE 


. START CF 


PROGRAM. 


303. 


297 


035B 






• 


iiACK ARROW* TYPE 


WHICH 


MCDE GF CPERATION. 


304. 


298 


035B 
















305. 


299 


035B 
















306. 


300 


035B 






* 
4 


LAST 4 


HEX DIG IN 


WHAT. 


FLAG -1 IF NO HEX CHAR • 


307. 


301 


0358 






■m 

-* 


LAST 2 


ALPHA CHAR 


AS A 


NUMBER. 0-13 ( G-Z ) IN WHERE. 


308. 


302 


03 58 






. . i - 




AFLAG -1 IF NO ALPHA CHAR * 


309. 


303 


035B 
















310. 


304 


035B 






START : 










311. 


305 


0358 


4C00 


A 




Li 


0,0 




iZERO FLAGS THAT ARE USEC. 


312. 


306 


03 5 C 


A 01 9 


B 




ST 


Ot WHAT 




;HEX WORD. 


313. 


307 


0350 


A01A 


B 




ST 


0, WHERE 




; ALPHA POINTER. 


314. 


303 




4CFF 






Li 


0,-1 




lIQ SET FLAGS TO -I. 


315. 


309 


035F 


A017 


B 




ST 


0* FLAG 




;HEX FLAG. 


316. 


310 


0360 


AO 18 


B 




ST 


0 i AFLAG 




; ALPHA FLAG. 


317. 


311 


0361 
















318. 


312 


0361 


29C7 


A 


NOW: 


JSR 


GET 




;RE AC/WR ITE FROM TTY 


319. 


313 


0362 


21BC 


A 




JMP 


IHEX 




;HEX NUMBER RETURN 


320. 


314 


0 3 6 3 


2106 


A 
M 




J MP 


S °C C 




5SPECIAL CHAR 


a o i 


31 5 


0364 


A 01 8 


B 




ST 


Q.^FLAG 




TSET AN AL°HA FLAG • 


322. 


316 


0365 


881A 


B 




LO 


2, WHERE 




;GET LAST INPUTS. 


323. 


317 


0366 


5 EOS 


.A 




SHL 


2,8 




; MAKE ROOM FOR NEW. 


324. 


318 


0 367 


3200 


A 




RAOD 


0,2 




; MAKE POINTER 


325. 


319 


0368 


ASIA 


B 




ST 


2 , WHERE 




; WHERE IS LAST TWO ALPHA. 


326. 


320^ 


.0369 


21F7 


A 




a HP 


NOW 




;KEEP GOING UNTILL CR. 


327. 


32 1 


036 A 
















328. 


322 


036 A 


F i 04 


A 


SP CC : 


S KN E 


0, A L MOD 




ICHECK FOR ALTMQDE 


329 . 


323 


036B 


2194 


A 




JMP 


N ST ART 




♦SPECIAL GO TO START. 


330. 


324 


036C 


F1D4 


A 




SKNE 


0,ESC 




:CHECK FOR ESCAPE. 


331. 


325 


036C 


2192 


A 




JMP 


NST ART 






332. 


326 


036E 


F101 


A 




SKME 


0,CRR 




;CHECK FOR CARRIAGE RETURN 




327 


036F 


0200 


A 




ft TS 






; NORMAL EXIT 


334. 


328 


0370 


F129 


A 




SKNE 


0,B ARR 




5CHECK FOR BACK ARROW. 


335. 


329 


0371 


211F 


A 




JMP 


BAR 




MS. 


336. 


330 


0372 


F106 


A 




SKNE 


0,KD 




:CHECK IF $. 


337. 


331 


0373 


2101 


A 




J MP 


TT A 






338. 


332 


0374 


21EC 


A 




J MP 


NOW 




;KEEP CHECKING 


339. 


333 


0375 
















340. 


334 


0375 






TT A : 










341. 


335 


0375 


2 02 7 


B 




JSR 


3CRLFA 




: CRLF. 


342. 


336 


0376 


8033 


R 




LO 


0 , BUFFAD 




; GET AODRFSS. 


343. 


33 7 


0377 


2C26 


B 




JSR 


30HEXA 




;PRINT IT. 


344. 


338 


0378 


2000 


R 




J MP 


BST ART 






345. 


339 


0379 
















346. 


340 


0379 


0024 


A 


KD: 


.WORD 


024 




:ASCII $. 


347. 
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341 


03 7 A 








* PAGE 






348* 


342 


037A 






..RETRY: 








3 49. 


343 


037A 


801B 


B 




LD 


0 « AGO 


RESTORE ACQ* 


350* 


344 


0378 


84 1C 


B 




i_0 


1, AC! 


♦RESTORE AC 1 . 


351. 


345 


037C 


8810 


B 




LO 


2, AC2 


; RESTORE AC2 . 


352. 


346 


0370 


8C1E 


B 




LD 


3 » AC3 


; RES TORE AC 3 • 


353. 


347 


037E 


0200 


A 




kTS 




; RETURN 


354. 


-34& 


037 E 














355. 


349 


037F 














356* 


350 


037F 


06DB 


A 


LISTE: 


* WORD 


LST 




357* 


351 


038.0 














358. 


352 


0380 






OHEX: 








359. 


353 


0380 


29D5 


A 




JSR 


SAVE 


;SAVE ALL REG* 


360. 


. 354 


0381 


3281 


A 




RCPY 


0*2 


;PUT .NUMBER TO TYPE IN AX2* 


361. 


355 


038 2 


4F04 


A 




i.1 


3*4 


;SET BIT COUNTER 


362* 


356 


0 38 3 


85FB 


A 




LO 


If LISTE 


1 GET POINTER TO LIST 


363. 


357 


oaa4 


5A04 


A 


LOOP: 


ROL 


2 ,4 


5M0VE HOST TO LEAST 


364* 


358 


0385 


8016 


8 




LD 


0*KF 


; MASK 


365* 


359 


0386 


A819 


B 




ST 


2 * WHAT 


;SAVE IdORD 


366* 


360 


.03.8 7 


3283 


A 




RAND 


0*2 


5NASK IT 


367. 


361 


0388 


3600 


A 




RADD 


1*2 


; HAKE POINTER 


368* 


362 


03 8 % 


8200 


A 




LD 


0,(2) 


; GET WORD TO TYPE 


369* 


363 


Q.3SA 


2CQD 


£ 




JSR 


aPUTc 


; TYPE IT 


370. 


364 


0388 


8819 


B 




LO 


2, WHAT 


; GET WORD 


371. 


365 


038C 


4BFF 


A 




AISZ 


3,-1 


% BUMP COUNTER 


372. 


366 


03S.C 


21E6 


A 




JMP 


LOOP 


;NOT DCNE 


373. 


367 


03 BE 


29Efi 


A 




JSR 


RETRV 


;GET SAVED R EG * 


374. 


368 


038F 


0200 


A 




RTS 




; RETURN 


375. 



REVISION-G G5/16/74 

PR MS FT P00343B 03/19/75 



04/02 5:41PM 
PAGE NUMBER 12 



369 


039C 








• PAGE 






376. 


370 


0390 






BAP : 








377. 


371 


0390 


2C27 


B 




JSR 


aCRLFA 




378. 


372 


0 391 


8010 


P 




LD 


0 , BUFENO 


5 GET ROM LENGTH* 


379. 


373 


0392 


F012 


B 




SKNE 


0,MFF 


JSKIP IF 4K PROM. 


380. 


374 


0 39 2 


2103 


A 




JMP 


T2K 


:IS 2K PROM. 


381. 


375 


0394 


2C11 


B 




JSR 


@**ESSA 


5PRINT MESSAGE • 


382. 


376 


03 95 


C789 


A 




• WORD 


N0W4K 




383. 


377 


0396 


2000 


B 




JMP 


B START 


;T0 START. 


384. 


378 


0397 


2C11 


R 


T2K: 


JSR 


SIMESSA 


; PR INT MESSAGE. 


385. 


379 


0398 


078F 


A 




. WORD 


NQW2K 




386. 


380 


0399 


2000 


B 




JMP 


B ST ART 


;T0 START. 


387. 


38 1 


039 A 














388. 


382 


03 9 A 


005F 


A 


BARR : 


* WORD 


05 F 


iASCII BACK ARROW. 


389. 


383 


039 8 














390. 


384 


0 39B 














391. 


38 5 


039B 






EN DNOW : 








392. 


386 


0398 


2C11 


B 




JSR 


SMESSA 


;PRINT MESSAGE. 


393. 


387 


03 9C 


0713 


A 




• WORD 


PAD 




394. 


388 


039D 






TS: 








395. 


389 


0390 


8022 


8 




LD 


0 , R C M 


5 GET ROM ADDRESS. 


396. 


390 


039E 


2C26 


B 




JSR 


30HEXA 


;PRINT ADDRESS. 


39 7. 


39 1 


039F 


2C2 7 


B 




JSR 


aCRLFA 




398. 


392 


03A0 


2901 


A 




JSR 


BELL 




399. 


393 


03 A 1 


2000 


B 




JMP 


B START 


VTO START. 


400, 


394 


03A2 














401. 


395 


03 A? 






BEL 1 : 








402. 


396 


03A2 














403. 


39 7 


03A2 


4EFC 


A 




Li 


2,~4 


;SET NUMBER OF TIMES. 


404. 


398 


03A3 


4C07 


A 


BELL 1 : 


L I 


0,07 


;ASCII BELL. 


405. 


399 


0 3A4 


2C0D 


B 




JSR 


apUTC 




406. 


400- -03A5 


4032 


A 




LI 


1,50 


; y A I T NUMBER. 


407. 


401 


03A6 


2C25 


B 




JSR 


3LWAITA 


5WAIT. 


408. 




U O a f 


r r% 


A 




* * 

i. i 


1,50 


;wAIT NUMBER. 


409. 


403 


03A8 


2C2 5 


B 




JSR 


3LWATT A 


;wait. 


410. 


404 


0 3A9 


4A01 


A 




AlSZ 


2, 1 


? CHECK IF DONE. 


411. 


405 


03 A A 


21F8 


A 




JMP 


BELLI 


;no. 


412. 


406 


03A8 


0200 


A 




RTS 






413. 
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40 7 


01 Af 








• PAGE 






414. 


408 


0 3AC 














415. 




0^ Af 

\J J> *4 i,^ 






S p T K : 








41 6. 


410 

t Ay 


0 lAf 


2f 7 A 


B 




J SR 


3HEXY A 


: CHECK IF H C X NUMBER. 


417. 


41 1 


03 AD 


2101 


A 




JMP 


SETK1 


;N0 HPX NUMBER. 


418. 


412 


03AF 


21 C<5 


A 




J MP 


NO MPS 




419 . 


413 


01 AF 






SETK 1 1 








420. 


414. 


03AF 


2C11 


B 




JSR 


3MESSA 


; PRINT MESSAGE* 


421. 


415 


03B0 

w «J U/ \J 


0789 


A 




• WORD 


N0W4K 




422. 


416 


038 1 


2C1 1 


B 




JSR 


I ' *J ~ 


JPRINT MESSAGE. 


423 . 


417 


Q3B.2. 


07A3 


...,1 




« WQ.RD 


BTY4 




424. 


418 


03 B 3 


2C 1 1 


B 




*iSR 


3ME SSA 


JPRINT MESSAGE. 


425. 


419 


03B4 


078F 


A 




. WORD 


N0W2K 




426. 


420 


03R5 


2C1 1 


B 




jSR 


3 M FSSA 

iJU ■ . <v. 1^ -kJ 


iPRINT MESSAGE. 


427. 


421 

^ it- J. 


01R6 

U »y 1* U 


f! 79 A 


A 




- wo r n 


BT Y 




428. 


422 


01R7 

%J _J O 1 


29A3 


A 






START 


:GFT CHAR. 


429. 


421 


01R 8 






NO MPS: 








430. 


424 

<C TT 


ni Rft 


RfM Q 


R 






0- WHAT 


:GFT LAST 4 H c X WORDS. 


431 . 




01R9 


J Ul u 


R 




AND 


KF 


IKFFP LAST. 

I1M* L i 1— M » » 


432. 


426 


03 B A 


4 8FF 


A 




A I S Z 


%* -TP fc 


iCH^CK FOR A 2. 


433. 


427 


01 PR 

\J Jr 1^ u 


2101 


A 




JMP 


• +2 


• MOT 2. 


434. 


428 


03BC 


2107 


A 




JMP 


S2K 


; INITIALIZE FOR 2K PROM. 


435. 


429 


03RD 


48P £ 


A 




A I £2 


0,-2 


;CHECK IF 4 TYPED. 


436. 


410 


03BE 


21 F0 


A 




J HP 


S ET Kl 


:N0T A 2 OR 4. 


437. 


43 1 


03BF 














438. 


43.2 


03 BF 






$4K : .., 










433 


038F 


810A 


A 




L0 


0 * MUL4 


; MAKE X + 5X. 


440. 


434 


03CO 


A14F 


A 




ST 


0, MULT 




441. 


435 


03C 1 


881 3 


B 




LO- 


2 « K51 1 


tG^T MAX BUFFER LENGTH. 


442* 


4"* A 


n^r 2 


Aft 1 0 


p 




ST 




: STORE AT BUFFER LENGTH. 


443* 


417 


o^ci 


2 1 rr 


A 




J HP 


BAR 


;RFTURN. 


444. 


















445. 


439 


03 f 4 






S2K : 








446. 


440 


n ^ r 4 


H I 0 4 


A 




LD 


0 • MiR ? 


z M a K F X 4- ^ X * 


447. 


441 


01C 5 

\J -J \j Jr. 


Al 49 


A 




ST 


0* MULT 




448. 


44? 




881 2 


R 




i 0 


2 • M F *= 


:GET BUFFER 1 ENGTH. 


449 . 


443 


03C7 


A810 


B 




ST 


2,BUFEN0 


; ST0R E BUFFER LENGTH. 


450. 


444 


03ca 


21C7 


A 




J,MP 


BAR 


; RETURN. 


451. 


445 


03C9 














452. 


446 


03C9 














453. 


447 


03 C 9 


5D01 


A 


MUL2: 


SHL 


1,1 


;x + 3X. 


454. 


44 8 


03CA 


5002 


A 


MUL4: 


SHL 


1,2 


:x + 5X. 


455. 
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449 


03CB 








.PAGt 






456 . 


450 


03CB 

ul *M* JUj* 














457. 


45 1 


03C B 














458. 


452 


03CB 


2902 


A 




J SR 


ERROR 


;00 IT. 


459. 


453 


03 CC 


290 5 


A 




JSR 


BELL 




460. 


454 


03CD 


2000 


B 




JMP 


BSTART 


5 TO START. 


461. 


455 


03CF 






ERROR: 








462. 


45 6 


oacE 


2C27 


B 




JSR 


aCRLFA 




463. 


457 


03CF 


2C1 1 


B 




j SR 


3MESS A 




464. 


458 


03D0 


0753 


A 




• WORD 


IS 




465. 


459 


03D1 


801A 


B 




LD 


0* WHERE 


•GET BAD WORD 


466. 


460 


0302 


2C26 


B 




JSR 


3GHFXA 




467. 


46 1 


03D3 


2C11 


B 




JSR 


3MESS A 




468. 


462 


0304 


0756 


A 




• klQRD 


SB 




469. 


463 


0305 


8300 


A 




LD 


0*131 


;GET GOGC WORD. 


470. 


464 


0306 


2C?6 


B 




JSR 


aOHEXA 


;PRINT IT. 


471. 


465 


0307 


2C1 1 


B 




JSR 


3MESSA 


;PRINT MESSAGE. 


472. 


466 


03D8 


0710 


A 




• WORD 


BADP 




473. 


467 


03D9 


2C1 1 


B 




JSR 


aMESSA 


SPRINT MESSAGE. 


474. 


468 


03DA 


0713 


A. 




• MORD 


PAD 




475. 


469 


030 B 


8022 


B 




LD 


0*RCM 


; PR I NT RGM ADDRESS. 


476. 


470 


03DC 


2C26 


B 




JSR 


aOHEXA 


;ORINT IT. 


477. 


471 


03DD 


7819 


B 




I SZ 


WHAT 


;S£T WHAT FOR USE WITH . VAR. ....... 


478. 


472 


03DE 


2C0C 


B 




JSR 


SINTEST 


:SEE IF KEYBOARD HIT. 


4 79. 


473 


03DF 


7000 


B 




JMP 


BST ART 


:T0 START. 


480. 


474 


Q3EC 


02 00 


A 

, « 




RTS 






481 . 


475 


03F1 














482. 


476 


03E1 














483. 


477 


03E1 


OOFF 


A 


MAX: 


.WORD 


OFF 


;MAX NUMBER OF TIMES TO HIT EACH LOC. 


484. 
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478 


03E? 








« PAGE 






485. 


47 9 


.0.3 E 2 






ERASE J 








486. 


480 


03E 2 


2C27 


B 




JSR 


aCRLFA 




487, 


48 1 


03E3 


2901 


A 




jSR 


ERAS 




488 • 


482 


03 E4 


2 13F 


A 




J MP 


V AR 




489. 


483 


03 E 5 














490. 


484 


03E5 














491 . 


485 


03E5 






ERAS: 








492* 


486 


03E5 


4C00 


A 




L I 


0*0 


;ZERO ROM ADDRESS. 


493. 


487 


03E6 


A022 


B 




ST 


0 , REM 


; DO IT, 


494. 


488 


03 E 7 


8410 


B 




LD 


1 , 8UFEN0 


",GET LENGTH OF ROM* 


495. 


489 


03 E 8 


F412 


B 




SKNE 


1 , M F F 


SSKIP IF NOT 2K PROM, 


496. 


490 


03E9 


2107 


A 




J MP 


VST ART 


VCHECK IF 2K PROM ERASED, THEN PROG. 


497. 


491 


03EA 


2C28 


B 


V4KGN: 


jSR 


aREAOWA 


; READ DATA WORD. 


498. 


492 


03EB 


4800 


A 




AISZ 


0,0 


5CHECK IF PRGM ZERO. 


499. 


493 


03EC 


2107 


A 




JNP 


EVER 


;PROM NOT ERASED. 


500. 


494 


03EC 


2C14 


B 




JSR 


2R0PIA 


; CHECK IF DONE* 


501. 


49 5 


03EE 


21FB 


A 




J HP 


V4KCN 


:NOT DONE. 


502. 


496 


03FF 


0200 


A 




RTS 






503. 


491 


0.3E0 


039.3. 


.A 


MQftQAs 


* WORD 


ENDNOW 




504. 



REVISIQN-G 05/16/74 

PRMSFT P00343B 03/19/75 



)4/02 5:41PM 
PAGE NUMBER 16 



49 8 


03F 1 
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505. 


,499 


Q3F1 






VS T ART : 








506. 


500 


03F1 


2C28 


E 




j SR 


3REA0WA 


;RE AO PROM. 


507. 


501 


03F2 


F01 2 


P 




SKNE 


0 , MFF 


;IF PROM NOT ERASED $Kl D * 


508. 


502 


03F3 


2103 


A 




J MP 


KEEPE 


;ROM IS ERASED KEEP GOING. 


509. 


503 


03F4 






FVEP : 








510. 


504 


03F4 


2C1 1 


R 




J SR 


3MESSA 


?PRINT MESSAGE. 


511. 


505 


03 F 5 


077C 






-WORD 


NGTER 




512. 


506 


03F6 


21 A6 


A 




JMP 


T S 


; DONE 


513. 


507 


03 F 7 






KEEPF: 








514. 


508 


03F7 


2C14 


B 




JSR 


3RQMIA 


; BUMP ROM ADDRESS* CHECK FOR END. 


515. 


509 


03F8 


21F8 


A 




j MP 


VST ART 


;KEEP GOING. 


516. 


510 


03 F 9 


0200 


A 




RTS 






517. 


51 1 


03 FA 














518. 


51? 

-r* J, JC 


03FA 






VP : 








519. 


513 


03 FA 


29FA 


A 




JSR 


ERAS 


;CHECK IF ERASED. 


520. 


514 


03FB 


4 COO 




PS TAR: 


L I 


0*0 


;ZERO ROM ADDRESS. 


521. 


515 


03 FC 














522. 


5 16 


03FC 






PS TAR T l 








523. 


517 


03 FC 


A 02 2 


8 




il 


0, REM 


;SAVE ROM ADDRESS. 


524. 


518 


03F0 


8C23 


B 




LD 


3t SW8UF 


5WRITE BUFFER ADDRESS IN AC3. 


525. 


519 


03FE 


3 300 


A 




RAOD 


0,3 


; CORRECT WRITE BUFFER ADDRESS* 


526. 


520 


03FF 


2C11 


B 




.JSR 


SMESSA 


» PRINT MESSAGE. 


527. 


52 1 


0400 


0704 


A 




. -WORD 


WOR K 




528. 


522 


04 01 






AG A IN : 








529. 


-523. 

"™ <Uf 1 


040 1 


„44i0"t ■ 


..A- 




4_ A- ■ 


■ <& # ■ i> . 


* nKl )C uWbC . t TlCiH . aLMU« 


5 30* 


52 4 


0402 






NPP. : 








531. 


52 5 


040? 


4004 


A 




L I 


1*4 


; SET TIME* 


532. 


526 


0403 


2C25 


fi 




JSR 


3LWAITA 


;WAIT* 


533* 


527 


0404 


2C2 8 


B 




J SR 


3 R E A CW A 


; READ WORD FROM PROGRAMMER. 


534. 


52 8 


0405 


F300 


A 




SKNE 


0 * ( 3 > 


; COMPARE DATA 


535. 


5.2.9... 


0406 


2 107 


A 




JMP 


AGO 


♦EQUAL FINISH 


536. 




0407 


4 AG1 


A 




A I S Z 


2.1 


% ADD 1 TO COUNTER 


537. 


531 


0408 


F908 


A 






2 f MAX 


;SKIP IF BAD PROM 


538. 


532 


0409 


2101 


A 




JMP 


. + 2 


:KEEP GOING 


539. 


533 


04 OA 


21CO 


A 




JMP 


ERROR— 3 


;COUNT EXCEEDED. 


540. 


534 


040B 


2927 


A 




JSR 


TEMPCK 


;CHECK FOR OVER TEMP. 


541. 


535 


040 C 


291C 


A 




JSR 


PPRCM 


; PROGRAM PROM 


542. 


5 36 


0 400 


21F4 


A 




J MP 


NPR 


5KEEP GOING. 


543. 
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537 


040E 








* PA GE 






544. 


538 


Q4QF 






AGCi 








545. 


539 


040E 


3981 


A 




KCPY 


2*1 


;S AVE NUMBER. 


546. 


540 


040F 


5002 


A 


MULT : 


SHL 


1.2 


; MUL T BY 4. 


547. 


544 


04 1 0 


3600 


A 




kADO. . 


1 #2 


; MAKE X + 5 X . 


548. 


542 


041 1 






AG 00 : 








549. 


543 


041 1 


8420 


B 




LD 


1 *RR 


;GET HOW LONG TO WAIT. 


550. 


544 


0412 


2C2 5 


8. 






3LWAITA 


;T0 KEEP TIME THE SAME. 


551* 


545 


0413 


291F 


A 




jsr 


TEMPCK 


;CHECK FOR OVER TEMP 


552. 


546 


0414 


2914 


A 




JSR 


PPRCM 


; PROGRAM PROM 


553. 


547 


0415 


4AEF 


A 




AISZ 


2*-l 


;COUNTER MINUS 1 


554. 


548 


0416 


2 IF A 


A 




JMP 


AGOG 


;NOT DONE KEEP PROGRAMMING. 


555. 


549 


0417 


2C0C 


B 




JSR 


S IN TEST 


tCHECK IF KEYBOARD HIT. 


556. 


550 


04i a 


2507. 


A 




JMP , 


3MD.N0A 


;WAS HIT . 


557. 


55 1 


0419 


4801 


A 




A IS Z 


3#1 


;BUMP BUFFER ADDRESS 


558. 


552 


041 A 


2C14 


B 




JSR 


3R0MI A 


; CHECK IF DONE. 


559. 


553 


0418 


21E5 


A 




JMP 


AGAIN 


;NOT DONE KEEP GOING 


560 • 


554 


04 1 C 


2C1 1 


B 




JSR 


9MESSA 


SPRINT MESSAGE 


561. 


555 


0410 


0700 


A 




.WORD 


DONE 




562. 


556 


041 E 


401 4 


A 




lI 


1*20 


I SET NUMBER OF TIMES* 


563. 


557 


04 IE 


4C0 7 


A 




L I 


0,07 


;GET BELL. 


564. 


558 


0420 


2C0D 


B 




JSR 


3PUTC 


;TYPE IT. 


565. 


559 


0421 


49FF 


A 




AlSL 


1 * - 1 


; CHECK IF DONE • 


566. 


560 


0422 


21F0 


A 




JMP 


.-2 


;N0 DO IT AGAIN. 


567. 


56 1 


0423 


2D04 


A 




JSR 


SVA IRA 


\ VERIFY PROM. 


568 • 


562 


0424 


2C11 


B 


VAR : 


JSR 


a MESS A 


•DDT HIT MCC C A flE 

H I' ! \ jL \ \ ' J " .' w sJ \^ ■# 


56,9.. 


563 


0425 


€76A 


A 




• WORD 


ROMV 




570. 


564 


0426 


2 000 


B 




JMP 


BST ART 


; TO START. 


571 . 


565 


042 7 














572. 


566 


0427 


3000 


A 


XADA : 


• WORD 


03000 




5 73. 


567 


042 8 


0553 


A 


VA IRA: 


.WORD 


VAIP 




574. 


56 3 


0428 














575. 


569 


0429 






PPRGMs 








576. 


570 


042 9 




A 




T 

t_ 1 


j. f ^ 




Off* 


571 


042 A 


OFOO 


A 




SFLG 


6 


;SET WRITE VOLTAGES 


578. 


572 


042B 


49FF 


A 




aI SZ 


It- 1 




579. 


573 


042C 


21FE 


A 




j MP 


.-1 




580. 


574 


0420 


0F00 


A 




SFLG 


7 


; PROGRAM PROM 


581. 


575 


042E 


8421 


B 




LD 


1 . Pfei 


;GET TIME. 


582. 


576 


042F 


2C25 


B 




JSR 


3LWAITA 


SLONG WAIT. 


583. 


577 


0430 


0F80 


A 




PFLG 


7 


: RESET FLAG 


584. 


578 


0431 


0E80 


A 




PEL G 


6 


; RESET FLAG 


585. 


579 


0432 


0200 


A 




RTS 






586. 
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580 


0433 
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587. 


581 


0433 






TEHPCK; 






588. 


582 


0433 


8022 


8 


LO 


0,RCM 


; GET RCM ADDRESS. 


589. 


583 


0434 


C12E 


A 


aOO 


O.TEMPWQ 


5MAKE COMMAND WORD. 


590. 


584 


043 5 


292 0 


A 


JSR 


SENCA 


I SEND COMMAND. 


591. 


58 5 


0436 


2907 


A 


jSR 


SEND 


,DU^Y FOR HARDWARE. 


592. 


586 


0437 






to A IT : 






593. 


587 


0437 


4004 


A 


LI 


1 ,4 


% GET TIME. 


594. 


588 


0438 


2C25 


B 


JSR 


3LWA IT A 


5WAIT BEFORE GOING ON. 


595. 


589 


0439 


1FF0 


A 


aac 


TEMPT* WAIT 


;CHECK FOR OVER TEMP • 


596. 


590 


043A 












597. 


591 


04 3 A 






m ITEWD: 






598. 


59 2 


043 A 


802 2 


B 


LO 


0,RCM 


; GET ROM ADDRESS. 


599. 


593 


043B 


C125 


A 


ADD 


0 ♦ WR ITE 


;WRITE - ADDRESS COMMAND. 


600. 


594 


043C 


2919 


A 


JSR 


SENCA 


? SEND WORD. 


601. 


59 5 


0430 


8300 


A 


LD 


0,(31 


;GET DATA WORD. 


602. 


596 


Q43F 












603. 


597 


043F 












604. 


598 


043F 






SEND DATA TO PROM PROGRAMMER. 


605. 


599 


043 E 






; DATA IS 


COMPLEMENTED 


BEFORE IT IS SENT • 


606. 


600 


043E 












607. 


601 


043E 












608. 


602 


043 F 












609. 


603 


043E 






SEND: 






610. 


604 


043E 


5C00 


A 


LAI 


0,0 


% COMPLEMENT DATA. 


611. 


605 


Q43F 


6012 


B 


A.ND 


0 # M F F 


iKEEP LEAST 8 BITS. 


612. 


606 


0440 


4D0B 


A 


LI 


1*3 


; NUMBER OF SITS TO SEND. 


613. 


607 


0441 


5809 


A 


KOL 


0,9 


;MOVE TO HIGH. 


614. 


608 


0442 


2115 


A 


J MP 


ON 2 


SGO SEND DATA. 


615. 
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609 


0443 
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6 1 6 * 


610 


0443 














617. 


611 

Mm JL 


0443 


4C00 


A 


PEC V: 


Li 


0*0 


; ZERO RECEIVED WORD 


618. 


612 


0444 


4 008 


A 




L I 


1,8 


;SET COUNTER 


619. 


613 


0445 


2102 


A 




JMP 


BOCC 


;CHECK FCR BOC FIRST. 


620. 


614 


0446 


5 801 


A 


GOO : 


kOL 


0, 1 


;PUT BIT IN CORRECT POSITION 


621 . 


615 


044 7 


C880 


A 




PFLG 


o 


;CLOCK NEXT BIT. 


622. 


_. 616 


04.4.B 


IF 01 


A 


BOCC : 


dQC 


DATA, RED 


MF . REC .DATA A 3 GO TO „ R ED. 


623. 


617 


0449 


4801 


A 




aISZ 


0,1 


; ADD A ONF TO RECEIVED DATA. 


624. 


618 


044 A 


49FF 


A 


RED: 


AISZ 


1,-1 


;DONE? 


625. 


619 


044 B 


21FA 


A 




JMP 


GOO 


S.NO 


626. 


620 


044C 


0880 


A 




PFLG 


0 


1NEED 8 CLOCKS. 


627. 


621 


0440 


4300 


A 




PUSH 


3 


;SAVE AC3. 


628. 


622. 


044E 


8D15 


A 




lO 


3,CPAD 


SPUT ADDRESS OF CONTROL PANEL. 


629 . 


623 


044F 


A 01 A 


8 




ST 


Ot WHERE 


; S AV E RECEIVED WORD. 


630. 


624 


0450 


066 8 


A 




ROUT 


LDR 


; SEND DATA TO LITFS. 


631. 


625 


045 1 


8022 


8 




LD 


0, RCM 


; GET ROM ADORE SS. 


632. 


626 


0452 


066 0 


A 




ROUT 


LPCDR 


:SEND ADCPESS TO LITES. 


633. 


627 


0453 


4700 


A 




PULL 


3 


: GE T AC3 BACK. 


634. 


62B 


0454 


8 01 A 


B 




LD 


0, WHERE 


iGET RECEIVED WORD. 


635. 


629 


0455 


C200 


A 




RTS 






636. 


630 


0456 


401 0 


A 


SENDA: 


LI 


1 , 16 


?LOAD COUNTER 


637. 


631 


.0457 


.5.801 


A 


SEBD1 : 


RQL 


Q, 1 




638. 


632 


0458 


0B8O 


A 


ON 2: 


PFLG 


3 


; ZERO DATA FLAG. 


639. 


6 33 


0459 


1304 


A 




aoc 


CDD ,CNE 


;IF DATA A 1 SET DATA FLAG. 


640. 


....63.4. 


045 A 


QB8.Q. 


A 

. A „ 




RELG . 


0 


n r 4/ nftTA 

♦ 1— w ^<1\. u i^Y i m ... 


641 * 


635 


045B 


49FF 


A 




Arsz 


1 ,-1 


; DON E SENDING ? 


642. 


636 


045C 


21FA 


A 




J HP 


SEBC1 


;N0. 


643. 


.. 637 


045 D 


0200 


A 


OOP:. 


RTS 






644. 


638 


045E 


0800 


A 


ONE: 


SFLG 


3 


;SET DATA FLAG. 


645. 


6 39 


045F 


21FA 


A 




jMP 


ON 




646. 


. 640 


0460 














647. 
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641 
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648. 


642 


0460 


















649. 


643 


0460 






• 


b IT S 


IN C OK WAND 


WORD. 




650. 


644 


0460 






a 


I 5 


START BIT. 








651 . 


645 


046G 






• 


14 


READ FPCM 


PROGRAMM 


ER. 


652. 


646 


046C 








13 


ENABLE VOLTAGE. 






653. 


647 


0460 






* 


12 


ENABLE PROGRAM 


VOLTAGE. 


654. 


648 


046 0 








il 


ENABLE TEMPERATURE 


READ. 


655. 


649 


0460 






• 

■q 


10 


TAKE AWAY 


4-5 VOLTS 


FROM VBB. 


656. 


650 


0460 






« 


09 


SPARE. 








657. 


651 


0460 


















658. 


652 


046 C 








08 


THRU 00 ADDRESS 


OF 


PROM. 


659. 


653 


0460 






• 


08 


MSB FOR 4K 


BIT 


PROM. 


660. 


654 


046G 






• 


07 


MSB FOR 2K 


BIT 


PROM. KM5203* 


66 1 . 


655 


0460 






• 


00 


LSB. 








662. 


656 


0460 


















663. 


657 


0460 


















664. 


658 


046 0 


8000 


A 


SB IT : 


• WORD 


080C0 






; ST ART BIT ONLY. 


665. 


659 


0461 


B400 


A 


WR I TE : 


. NORO 


0B400 






;L0 AD BITS 15,13,12,10. 


666. 


660 


0462 


COOO 


A 


READ: 


• WORD 


OCOCO 






5L0AD BITS 15, 14. 


667. 


661 


0463 


8C00 


A 


TE HP WO: 


• WORD 


08C00 






♦LOAD BITS 15,11,10. 


668. 


66 2 


0464 


0700 


A 


CP AD: 


.WORD 


0700 








669. 


663 


0465 


















670. 


664 


0465 


















671. 


665 


0465 






RE AOfcD : 












672. 


. — 666 -H46.5 


8022 


B 




LD 


O.RGH 






1 GET SUM ADDRESS 


673. 


667 


0466 


5000 


A 




cAI 


0,0 






; COMPLEMENT ADDRESS. 


674. 


668 


0467 


6010 


B 




AND 


0»BUFEND 




; MASK OFF ADDRESS. 


675. 


669 


0468 


C1F7 


A 




aDD 


0,SBIT 






?PUT ONLY START BIT. 


676. 


670 


0469 


29EC 


A 




JSR 


SENCA 






;SENC ADDRESS WORD 


677. 


671 


04 6 A 


2903 


A 




JSR 


SEND 






; DUMMY FOR HARDWARE. 


678. 


672 


046B 


8 022 


-B 




UD 


0*R£M 






;GET ROM ADDRESS 


679. 


673 


046 C 


CIF5 


A 




ADO 


0, READ 






SREAD ADDRESS COMMAND 


680. 


674 


0460 


29F8 


A 




JSR 


SEND A 






; SEND ADDRESS UQRu 


681. 


675 


0.4 6 F 


2 904 


A 




jSR 


RECV 






SRECEIVE WORD 


682. 


676 


046F 


0200 


A 




kTS 








S RETURN 


683. 


67 7 


0470 


















684. 
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678 


0470 








• PAGE 






635* 


679 


0470 






LWA.TT: ... 








6 86 • 


680 


0470 


5810 


A 


L00PP: 


kQL 


0 f I 6 


•A WAIT LOO? 


687. 


681 


047 1 


49FF 


A 




aISZ 


1 1- 1 


; DONE? 


688. 


682 


04 7? 


2 1FD 


A 




JMP 


LQ0PP 


;N0 


689. 


t.f vJ -J 


0473 


0200 


A 




rtTS 






690. 


6 84 

yj O *T 


04 74 














691 . 




0474 














692* 


tluU 


0474 






; PRINT A 


LIST LE^S THAN 


VALUE IN BUFEND STARTING AT ADDRESS IN ACO. 


693. 




0474 














694. 


688 


0474 














695. 


689 


0474 






PL! ST: 








696. 


69 0 


0474 


?C2A 


B 




JSR 


3HEXYA 


;CHECK IF HEX NUMBER TYPED* 


69 7* 


691 


0475 


8 023 


B. 




L0 


0 • SWBUF 


;N0 GET HRITE BUFFER ADDRESS* . 


698. 




04 7 ft 


338 1 


A 




RCPY 


0,3 


:PUT STARTING ADDRESS IN AC3. 


699 • 


693 


0477 


293 B 


A 




JSR 


ZR0P 


;ZER0 ROM ADDRESS. 


700. 


694 


0478 






BL : 








701. 


69*5 


0478 


4E08 


A 




L I 


2.8 


5 SET CHAR PER LINE 


702* 


69 6 


04 79 


2 €2 7 


B 




j SR. 


aCRLFA 




703. 


69 7 


047A 


3CB.1 


A 




RCPY 


3 *0 


;GET ADDRESS 


704* 


698 


047 fi 


2C26 


B 




J SR 


30HEXA 


: PR I NT IT 


705. 


699 


04 7C 


2C0C 


8 




jSR 


31 NT EST 


•KEYBOARD HIT? 


706. 


700 


047D 


2000 


B 




JMP 


B ST ART 


TO START* 


707. 


70 1 


047E 


2C15 


8 




JSR 


SS P AC A 


•SPACE ONE 


708* 


70 2 


047F 






BUL : 








709. 


203. 


D.4 J,£ 


2C15 


R 




... JSR .. 


as P AC A 




710. 


704 


04 8 C 


8300 


A 




LB 


0,(33 


;GET DATA TO PRINT 


711. 


705 


048 1 


2C26 


R 

I. } 




JSR 


20HFX A 


;PRINT IT 


712* 


70 A 


048 2 


?f Of 


R 

... -EX.-.. 




JjSR 


U. 1 '1 1 L J 5 . . . 


:KFYBOARO HIT'? 


713. 


70 7 


048^ 


7000 


R 




JMP 


BST ART 


:TO START. 


714* 


70 8 


0484 


4R01 


A 




AlSZ 


3 • 1 

J T X 


:BUMP ADDRESS 


715* 


70<3 


048 5 


? 100 


A 




..JMP 


* 4- 1 

* » X 


: OV^R FLOW* 

. * \~» 9 . w. J > j ■-. i_ ^-J If* .» ..... . .... 


716* 


710 


0486 


2C14 

£. M X.™ . 


R 




JSR 


3R0f*I A 


;CHFCK FOR END OF BUFFER. 


717. 


711 




7 1 01 


A 




JMP 


• + 2 


**SiOT DONE* 


1 i o . 


712 


0488 


2000 


B 




JMP 


BST APT 


;T0 START. 


719. 


713 


0 4 89 


4AFF 


A 




AISZ 


2.-1 


• BUMP LINE COUNTER 


720. 


714 


048 A 

V* ~ W r* 


2 1F4 


A 




J MP 


BUL 


; SAME LINE 


721. 


71 5 


0.4 8 B 


21 EC 


A 




JMP 


BL 


;NO 


722. 


716 


04 8f 














723* 


717 


048 C 






SPAC: 








724* 


718 


G48C 


4C20 


A 




LI 


0.020 


;GET ASCII SPACE 


725. 


719 


048C 


2C0D 


B 




JSR 


3PUTC 


;type IT 


726. 


72 0 


048F 


0200 


A 




RTS 




; RETURN 


727. 


721 


048F 














728. 


72 2 


048F 


FF00 


A 


KFE00: 


• WORD 


0FE00 




729. 
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723 


049 0 








• PAGE 






730. 


724 


0490 






• 




STROM I A 


ADD 1 ^0 ROM ADDRESS 


731. 


725 


0490 






* 


NOR **AL RETURN 




732. 


726 


0490 








RETURN ROM ACDRESS 


GT BUFFER END 


733. 


727 


0490 














734. 


72 8 


0490 














735. 


729 


0490 






ROVI : 








736. 


730 


0490 


7822 


B. 




iSZ 


ROM 


; ADD 1 TO ROM ADDRESS. 


737. 


731 


0491 


8422 


B 




LO 


1 1 R C M. 


; GET ROM ADDRESS. 


738. 


732 


0492 


E41 0 


R 




SKG 


.1 , BUF END 


SSKIP IF DONE. 


739. 


733 


0493 


0200 


A 




kTS 




; NORE TG GO RETURN. 


740. 


734 


0494 


0201 


A 




kTS 


1 


; DONE RETURN. 


741. 


73 5 


049 5 














742. 


736 


0495 






PR FAD 








743. 


73 7 


0495 


A022 


8 




ST 


0, RCM 


;SAVE STARTING ADDRESS* 


744. 


73 8 


0496 


71F8 


A 




SKAZ 


0 , KFEOO 


JCHECK IF TO LARGE. 


745. 


739 


0497 


2000 


B 




JMP 


BST ART 


;T0 LARGE. 


746. 


740 


049 8 


2C2 7 


e 


LL PP : 


JSR 


aCRLFA 




747. 


741 


0499 


4E08 


A 




Li 


2,3 


;SET WORD COUNTER 


748. 


742 


049A 


8022 


B 




LD 


Ot RCM 


; GET PROM ADDRESS 


749. 


743 


049B 


2C26 


B 




JSR 


30 HEX A 


; PRINT ROM ADDRESS 


7 50. 


744 


049C 


2C15 


B 




JSR 


aSPACA 


; SPACE 1 


751. 


745 


049D 


2C1 5 


B. 


LP L P : 


JSR . 


aSPACA 


; SPACE 1 


752. 


746 


049F 


2C28 


B 




JSR 


3READWA 


; R E AD ROM* 


753. 


747 


049F 


2C2.6 


R 




JSR 


30HEXA 


; PR I NT WORD. 


754. 


740 


04 A 0 


2C0C 


..8 




JSR . 


33 IN TEST 


;S£E IF KEYBOARD HIT • 


7CC 
j , * 


749 


04 A 1 


2000 


B 




JMP 


B ST ART 


; TO ST ART * 


756. 


750 


04A2 


2C14 


B 




JSR 


3RD MI A 


;CHECK FOR END OF BUFFER. 


757. 


751 


04 A3 


2101 


A 




JMP 


LLPP1 


;KEEP GOING. 


758. 


752 


04 A 4 


2000 


B 




JMP 


BST ART 


;T0 START. 


7 59. 


753 


04 A5 


4AFF 


A 


LLPP1 


2 aI SZ 


2,-1 


; CHECK IF LINE DONE. 


760. 


754 


04A6 


21 F 6 


A 




JMP 


LPLP 


;L I NE NOT DONE 


761. 


755 


04 A 7 


21F0 


A 




J MP 


LLPP 


;LINE DONE 


762. 


756 


04 A8 














763 • 


757 


04Afi 














764. 


758 


04 AS 








FILL WRITE 


BUFFER WITH HEX 


WORD THAT IS IN ACO. 


765. 


759 


04A8 














766. 


760 


04 AS 














767. 


761 


04A8 






ZRO; 








768. 


762 


04A8 


8823 


B 




LO 


2,SfcBUF 


5 F I LL WRITE BUFFER. 


769. 


763 


04A9 


2903 


A 




JSR 


ZERCF 


-.FILL BUFFER. 


770. 


764 


04AA 


2C11 


B 




JSR 


3MESS A 


SPRINT MESSAGE. 


771. 


765 


04 A e 


0794 


A 




• WORD 


VHON 




772. 


766 


04AC 


2000 


B 




JMP 


BST/SRT 


;T0 START. 


773. 
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767 


04 AD 








.PA GE 






774. 


ZhB 


.04 AC 














775. 


769 


0440 






Z E RP F : 








776. 


770 


04AC 


290 5 


A 




J SR 


ZROM 


; SET ROM ADDRESS TO 0. 


777. 


771 


04AE 


A200 


A 




ST 


0, { 2! 


;STCRE WORD • 


778. 


772 


04AF 


4A01 


A 




AI S Z 


2,1 


;BUMP ADDRESS. 


779. 


773 


04B0 


2C14 


B 




JSR 


I a 


;DONE? 


780. 


774 


0-4 Bl 


21FC 


. A. 




JMP 


.-3 


;N0 


731. 


775 


0482 


0200 


A 




KTS 






782. 


776 


04B3 














783. 


777 


04B3 






ZROM: 








784. 


778 


04B3 


4000 


A 




L I 


1,0 


;AC1 = 0. 


785. 


779 


04B4 


A422 


B 




ST 


1 ,RCM 


; ZERO ROM ADDRESS. 


786. 


780 


04B5 


0200 


A 




RTS 






787. 


78 1 


04B6 






IN BINS 








788. 


782 


04B6 


8103 


A 




4.0 


Q,CCMP 


5FIX FOR COM DATA. 


739. 


783 


0.4 a 7 


A126 


A 




ST 


0,DCGMP1 




790. 


784 


04B8 


A 10F 


A 




ST 


0,CCOMP 




791. 


785 


04B9 


2105 


A 




J HP 


NBI N 


SNOW READ TAPE. 


792. 


786 


04BA 














793. 


787 


04BA 


5000 


A 


COMP : 


C AI 


0,0 


; MAKE 1»S COMP. 


794. 


788 


04BB 


2100 


A 


NCOMP: 


JMP 


, + 1 


; DUMMY. 


795. 


789 


04-BC 














796. 


790 


04BC 






RININ: 








797. 


791 


048C 


81FE 


A 




LD 


0, NCOMP 


; TRUE DATA • 


798. 




04BC 


, JL 01 j^k , , 


A 




ST 


0,DCCMP 




799. 


793 


04'BF. 


A11F 


A 




ST 


CDCCWPI 




800. 
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794 


048F 








• PAGE 






801. 


795 


04 Bf 














802* 


796 


04BF 






NB IN : 








803. 


797 


046F 


29F3 


A 




JSR 


ZRQV 


UERO ROM ADDRESS. 


8 04. 


798 


Q4C0 


4E0O 


A 




Li 


2 f 0 


;ZERO CHECK SUM » 


805. 


799 


04C1 


2C11 


B 




JSR 


aMESS a 


; PRINT MESSAGE* 


8 06. 


800 


04C2 


0720 


A 




• WORD 


PAT A I C 




807. 


aoi 


04C3 


2C29 


B ... 




JSR 


SLQKSA 


5WAIT UNTIL KEYBOERD HIT 


808. 


802 


04C4 


2C27 


B 




JSR 


SCR LF A 




809. 


803 


04C5 


792C 


A 




JSR 


LEACR 


; RE AD PT UNTIL FF FOUND 


810. 


804 


04C6 


8C23 


B 




LD 


3#SKBUF 


;AC? = POINTER TO MEMORY 


811. 


805 


04C7 






ON GO : 








812 . 


806 


04 C 7 


2C0F 


B 




JSR 


3GETC 


SREAD PT 


813. 


807 


04C 8 


5000 


A 


OCOMP: 


CAI 


0.0 


:COMP DATA 


814. 


808 


04 C 9 


6012 


B 




A NO 


0, MFF 


; MA SK OFF MOST SIG BYTE* 


815. 


809 


04C A 


A300 


A 




ST 


0, (3) 


; STORE CAT A 


816. 


8 10 


0 4CB 


3200 


A 




RADD 


0*2 


; MAKE CHECKSUM. 


817. 


811 


04CC 


4801 


A 




aISZ 


3 , 1 


;BUMP POINTER 


818. 


812 


04C0 


2C14 


B 




JSR 


3R0PIA 


;DONE? 


819. 


813. 


04CE 


2 IF 8 


A 




J HP 


QNGO 


; NOT.. DONE 


820. 


814 


04CF 


2944 


A 




JSR 


PCKSM 


; PR INT CHECK SUM. 


821. 


815 


04D0 


2C 1 1 


B 




JSR 


3MESSA 


; PRINT MESSAGE* 


822. 


£16 


0401 


07D.B 


A 




.WQRD 


VERF 




823. 


8 17 


0402 


293 7 


A 




JSR 


IMYN+2 


;CHECK IF VERIFY. 


824. 


818 


0403 


2116 


A 




JMP 


FNI 


:N0 VERIFY. 


825. 


819 


0404 


2C11 


B 




i C n 


3 MESS A 


; PR I NT MESSAGE. 


826. 


870 


0405 


0720 


A 




.. WORD 


D^TAIO 




827. 


821 


04D6 


2C11 


8 




JSR 


3MESSA 


5 PRINT MESSAGE* 


828. 


822 


0407 


0746 


A 




• WORD 


P AG A I N 




829. 


823 


0408 


290A 


A 




JSR 


ZROM 


;ZERO ROM ADDRESS. 


830. 


824 


04 09 


2C29 


B 




J SR 


3L0KSA 


;WAIT UNTIL KEYBOERD HIT 


831. 


825 


04BA 


2Z21 


„fi 




JSR. 


3CRLFA 




832. 


826 


0408 


291 6 


A 




JSR 


L EADR 


;READ PT UNTIL FF FOUND 


833. 


82 7 


040C 


8C23 


8 




i-D 


3 , S W 8U F 


;AC3 = POINTER TO MEMORY 


834. 


828 


04DD 






ANGO : 








835. 


829 


04DD 


2C0F 


R 




J SR 


3GETC 


; RE AD PT 


836. 


830 


040E 


5000 


A 


OCOMP 1 : 


lAT 


0*0 


?COMP DATA 


837. 


831 


040F 


6012 


B 




A MO 


Q.MFF 


; MASK OFF MOST SIG BYTE. 


838. 


832 


04FG 


F300 


A 




SKNE 


0,(3) 


5SKIP IF DATA DOES NOT MATCH 


839. 


833 


04E1 


2103 


A 




J MP 


OGOOO 


?DATA MATCHES 


840. 


834 


04E2 






BF IN : 






; DATA NOT CORRECT. 


841. 


83 5 


04E2 


2C11 


B 




JSR 


SMESSA 


5PRINT MESSAGE. 


842. 


836 


04E3 


0733 


A 




.WORD 


NGVER 




843. 


837 


04 E 4 


2000 


B 




J MP 


8ST ART 


;TQ START. 


844. 
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838 


04 E 5 








• PAGE 






345. 


839 


Q4E5 






OGQOD: 








846. 


840 


04F5 


4B01 


A 




4ISZ 


3,1 


;BUMP POINTER 


847. 


8 41 


04E6 


2C14 


B 




JSR 


SJROMIA 


;oone? 


848. 


842 


04F? 


21F5 


A 




J MP 


ANGC 


; KEEP GCING 


849. 


843 


04E8 






FIN : 






ID ATA IS CORRECT. 


850. 


844 


04 E 8 


2C11 


R 




JSR 


S^ESSA 


; PR I NT MESSAGE • 


851. 


845 


G4E9 


Q76A 


A 




.WORD 


ROMV 




852* 


846 


04EA 






FN I : 








853. 


847 


04 E A 


2000 


B 




J MP 


8 ST ART 


;T0 START. 


854. 


848 


04EB 














8 55. 


849 


04EB 






10KSE: 








856. 


850 


04EB 


4F38 


A 




LI 


3 tTTYAD 


;SET AC 3 TO TTY ADDRESS. 


857. 






Q6Q5 


A 




ROUT 


. 5 . . 


; RESET TTY. - 


858. 


852 


04 ED 


2C11 


B 




JSR 


3MESSA 


;PRINT MESSAGE. 


859. 


853 


04EE 


0727 


A 




• ^ORD 


HIT 




860. 


854- 


04EF. 


2C0C 


.a 




aSR 


aiNTEST 


:CHECK IF KEYBOARD HIT. 


861. 


855 


04FC 


0200 


A 




RTS 




;YES 


862. 


856 


04F1 


21F0 


A 




JMP 


.-2 


:N0 WAIT. 


363. 


85 7 


04F-2 














864. 


858 


04 F 2 






LFAOR: 








865. 


859 


04F2 


2C0E 


B 




JSR 


SGE TC 


;READ CHAR. 


866. 


860 


04 F 3 


F012 


B 




SKNE 


0 * MFF 


;READ UNTIL RU30UT. ..... 


867. 


861 


04F4 


0200 


A 




RTS 






868. 


862 


04F5 


21FC 


A 




jHP 


LEACR 




869. 


.8,63 


Q4FL6 














8 7 .0 


864 


04F6 






PNTAPE: 








871 . 


865 


04F6 


29BC 


A 




JSR 


ZRD^ 


;ZERO ROM ADDRESS. 


872. 


866 


GAF7 


292,5. 


A., 




JSR 


RPN 


; RE AD P/N TAPE 


873. 


867 


04*=8 


4000 


A 




PUSH 


0 


;PUT RETURN ADDRESS 8 


874. 


86 8 


04F9 


A700 


A 




ST 


1 , C 3 1 


; STORE WORD 


875. 


869 


U HrJk 


210X3 


A 




j MP 


«+ 1 ............ . 


; DUMMY 


8 76. 


870 


04FB 


2148 


A 




JHP 


FWO 


; RETURN TO RPN 


877. 


87 1 


0 4FC 


2C1 1 


B 




J SR 


3MESS A 


; PR I NT MESSAGE. 


87S» 


872 


04FD 


0762 


A 




...WORD 


PDHRE. 




379. 


873 


04FE 


2C11 


B 




JSR 


3MESSA 


;PRINT MESSAGE. 


880. 


874 


04FF 


07DR 


A 




. NORD 


VERF 




881. 


.87.5 


050X3 


2909. 


A 




JSR 


1NYN2 


;CHECK IF VERIFY. 


882. 


876 


0501 


21E8 


A 




J MP 


FNI 


;NOW VERIFY. 


883. 


877 


0502 


291A 


A 




JSR 


RPN 


; READ P/N TAPE 


884. 


87 JB . 


.0503 


4000 






PUSH 


0 


ISAVE RETURN ADDRESS. 


885. 


879 


0504 


F700 


A 




^KNE 


1,(3) 


;SKIP IF DATA NOT CORRRECT. 


886. 


880 


0505 


213E 


A 




JMP 


FWD 


;return TO RPN 


887. 


881 


0506 


21DB 


A 




JMP 


3FIN 


; ERROR 


888. 


882 


0507 


21E0 


A 


FINA: 


JMP 


FIN 


;all CORRECT 


889. 
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883 


0508 








• PA GE 






390. 


884 


0508 






; GEl 


INPUT 


Y OR N. 




891. 


885 


05 08 








JSR 


INYN+2 




892. 


886 


0508 








RETURN 


FOR ?\. 




893. 


887 


0508 






• 


kETURN 


FOR Y. 




894. 


388 


0508 














895. 


889 


0508 






INYN : 








896. 


890 


0508 


2C11 


8 




jSR 


3HESSA 


SPRINT .MESSAGE, 


897. 


891 


0509 


0 801 


A 




.WORD 


ERF 




898. 


892 


050 A 


2D08 


A 


INYN2: 


JSR 


3STRA 


;GET CHAR Y OR N. 


899. 


893 


0508 


801 A 


B 




LO 


0, WHERE 


; GET INPUT. 


900. 


894 


050C 


6012 


B 




AND 


0 , MFF 


;M ASK OFF. 


901. 


895 


050D 


48F9 


A 




AlSZ 


0,-7 


;CHECK FOR H • 


902. 


896 


05 OE 


2 10 1 


A 




uHP 


.+2 


;NOT N. 


903. 


897 


050F 


0200 


A 




RTS 




;N, 


904. 


898 


0510 


48 F 5 


A 




aISZ 


0,-11 


;CHECK IF Y» 


905. 


899 


0 51 1 


?1F6 


A 




J MP 


I NYN 


;8A0 INPUT. 


906. 


900 


0512 


0201 


A 




kTS 


1 


; YES* 


907. 


901 


0513 














908. 


902 


0513 


0 35B 


A 


STRA ; 


* WORD 


START 




909. 


903 


0514 














910. 


904 


0514 






PCKSM: 








911. 


905 


0514 


2C11 


B 




JSR 


3MESSA 


;PRINT MESSAGE. 


912. 


906 


0515 


07E8 


A 




• WORD 


VEFR 




913. 


907 


0516 


8039 


B 




LD 


0 ,H ICKSM 


;GET MOST SIG CKSM. 


914. 


908 


0517 


2C26 


B 




J SR 


30HEXA 


;PRINT IT. 


915. 


909 


0518 


4C20 


A 




L I 


0,020 


;PRIN T A SPACE. 


916. 


910 


0519 


2C0D 


B 




JSR 


3PUTC 




917. 


911 


05.1 A 


3881 


A 




RCPY 


2,0 


;PUT CHECK SUM IN ACO. 


918. 


912 


051B 


2C2 6 


B 




JSR 


30HEXA 


;PRINT NUMBER. 


919. 


913 


051C 


0200 


A 




RTS 






920. 
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914 


05 ID 








.PAGE 






921. 


915 


051 D 






RPN: 








922. 


916 


0510 


2C1 1 


B 




JSR 


3MESSA 


; PR I NT MESSAGE. 


9 23. 


917 


05 IE 


0720 


A 




* yORD 


DAT.* 10 




924. 


918 


05 1 F 


2C2 9 


B 




jSR 


53LQKSA 


;WAIT FGR KEYBRO HIT 


925. 


919 


0 520 


2C2 7 


fi 




J SR 


3DCRLFA 




9 26. 


920 


0521 


4000 


A 




L T 


1 *0 


MERC WORD 


927. 


921 


0522 


4E00 


A 




Ll 


2 tO 


;ZERO BIT COUNTER 


928. 


922 


0 523 


8C23 


B 




LD 


3 »SWBUF 


;AC3 = BUFFER POINTER 


929. 


923 


0524 






READS: 








930. 


924 


0524 


2C0E. 


B 




JSR 


3GETC 


; READ TAPE 


931. 


925 


0525 


602B 


fi 




AND 


0*K7F 


;MAKE 7 BIT ASCII. 


932. 


926 


0526 


48BF 


A 




AISZ 


0*-042 


;READ UNTIL A B FOUND. 


933. 


927 


0527 


2 1 FC 


A 




JMP 


REACB 


;!MQT A B KEEP READING 


934. 


928 


0528 


4000 


A 




Ll 


1,0 


;ZERQ WORD 


935. 


929 


0529 


4FG8 


A 




Ll 


2*8 


;SET BIT COUNTER 


936. 


930 


0.5 2 A 






MQNREAO: 






937. 


93 1 


0 5 2 A 


2C0E 


& 




JSR 


3GETC 


; READ PAPER TAPE. 


938. 


932 


0 52B 


607B 


B 




AND 


0*K7F 


; MAKE 7 BIT ASCII. 


9 39. 


933 


052C 


FliC 


A 




SKNE 


OtKP 


1 CHECK FCR P. 


940. 


934 


0520 


2107 


A 




JMP 


PRE AS 


; I T IS A P . 


941. 


935 


052E 


F11C 


A 




SKNE 


0 ♦ KK 


;IS IT AN N? 


942. 


.93.6 


052F 


.2100 


A 




JMP 


NREflD 


; YES 


943. 


937 


0 530 


F01F 


B 




SKNE 


0.K46 


MS IT AN F ? 


944. 


93 8 


0531 


2100 


A 




JMP 


FRF AO 


;YES 


945. 


.93.9 


.0532 






RERRDfil 








946. 


940 


0532 


2C1T 


B 




JSR 


3MESSA 


: PR I kt VESSAGE. 


947. 


941 


0533 


0759 


A 




• WORD 


BADTAPE 




948. 


942 


0534 


2000 


B. 




JMP 


BST ART 


;T0 START. 


949. 
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943 


0535 








• PAGE 






950. 


944 


0535 














951. 


945 


0535 






PRE AS: 








952. 


946 


0535 


5D01 


A 




SHL 


1,1 


; SHIFT WORD LEFT ONE 


953. 


947 


0536 


4901 


A 




AlSZ 


1,1 


;ADO A BIT 


954. 


948 


0537 






GOON : 








955. 


949 


0537 


4A00 


A 




AlSZ 


2,0 


;IF COUNTER IS 0 BAD. 


956. 


950 


0538 


2101 


A 




JMP 


.+2 


:G.GOD* 


957. 


951 


0539 


21F8 


A 




JMP 


RFPRCR 


5TAPE IS BAD. 


958. 


952 


053 A 


4AFF 


A 




AlSZ 


2,-1 


;DEC COUNTER 


959. 


953 


0536 


2100 


A 




JMP 


.+1 


SOVER FLOW 


960. 


954 


053C 


21FD 


A 




JMP 


NOWRF AO 


; GET MORE 


961. 


955 


0 530 














962. 


956 


0530 






NR EAO: 








963. 


957 


0530 


5001 


A 




i»HL 


1,1 


; SHIFT ONE BIT 


964. 


958 


053E 


21F8 


A 




JMP 


GCCN 




965. 


9 59 


053F 














966. 


960 


053F 






FR E AO: 








967. 


961 


053F 


4A00 


A 




AlSZ 


2,0 


;SKIP IF COUNTER = 0 


968. 


962 


0 540 


21F1 


A 




JMP 


RERROR 


;8IT COUNT BAD 


969. 


963 


0541 


4400 


A 




PULL 


0 


;SET RETURN ADDRESS 


970. 


964 


0542 


4000 


A 




PUSH 


0 


;SET RETURN ADDRESS 


971. 


965 


0543 


0200 


A 




RTS 






972. 


966 


0 544 














973. 


967 


0544 






FWD: 








974. 


96B 


0544 


4BQ1 


A 




AlSZ 


"2 1 

•J * X 


;BUMP POINTER 


975. 


969 


0545 


2C14 


B 




JSR 


2R0*>I A 


; CHECK IF DONE 


976. 


970 


0546 


21DD 


A 




JMP 


REAC8 


;NOT DONE CHECK FOR B NOW* 


977. 


971 


0547 


4D00 


A 




LI 


1,0 


;AC1 = 0. 


978. 


972 


0548 


A42? 


B 




5T 


1 , RCM 


5ZERC RCM ADDRESS . 


979. 


973 


0549 


0204 


A 




RTS 


4 


% RETURN 


980. 


974 


054A 














981. 


975 


054A 


C050 


A 


KP: 


* WORD 


050 




982. 


976 


05 4B 


004E 


A 


KN : 


-WORD 


04 E 






977 


0 54C 


G424 


A 


AVAR : 


* WORD 


VAR 




984. 
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054D 
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985. 


979 


054D 






VAR A : 








986. 


980 


0540 


85FF 


A 




LO 


1 , AV AR 


•gcj RFTURN ADDRESS. 


987. 


98 1 


0 54E 


4100 






PUSH 


1 


;PUT ON STACK. 


988 . 


982 


0 54F 


4000 


A 




PUSH 


o 


:SAVE NUMBER- 


989. 


983 


0550 


2C2 7 


8 




JSR 


3C R L F A 




990. 


984 


0551 


4400 


A 




PULL 


o 


:GET NUMBER. 


99 1. 


_985. 


0552 


2C2A 


B. 




JSR 


SHEXVA 




992. 


986 


0553 






VA I R : 








993. 


987 


0553 


4C00 


A 




Li 


0,0 


;SET ROM ADDRESS = 0 


994. 


988 


0554 


AC22 


B 




:>T 


0»RCM 


5 STORE I T * 


995. 


989 


0555 


4E00 


A 




i.1 


2,0 


; ZERO CHECK SUM. 


996. 


99 0 


0556 


A 83 9 


B 






2»HICKSM 


;SET MOST SIG CKSM TO 0. 


997. 


991 


0557 


A 819. 


a. 




^1 . 


2, WHAT 


5 SET FLAG. 


998. 


992 


0558 


8C23 


B 




LO 


3, SWBUF 


•SET AC 3 = POINTER 


999 • 


993 


0559 


3300 


A 




k ADD 


0*3 


; F I X STARTING ADDRESS. 


1000. 


994 


055 A 






.Pli T IT : 








1001. 


99 5 


0 55 A 


2C28 


B 




j SR 


3R EADW A 


;read prqm 


1002. 


996 


0556 


3200 


A 




RADO 


0,2 


; MAKE CHFCK SUM • 


1003. 


997 


0.55.C. 


IAOB 


-A. 




aoc 


CYOV, ADAG 


,; CHECK IF MORE THAN 16 .. BIT CKSM. 


1004. 


998 


055D 


F300 


A 


KEPC i 


SKNE 


0,(31 


:SKTP IF ERROR 


1005. 


99 9 


055F 


2101 


A 




JMP 


• +2 


: NORMAL 


1006. 


1 00 0 


OS 5 F 


2037 


A 




JSR 


3ARR 


; PRINT BAD DATA THEN KEEP CHECKING. 


1007. 


1 00 1 


0560 


4801 


A 




AlSZ 


3,1 


;BUMP POINTER 


1008* 


1002 


0 561 


2C14 


B 




j SR 


3R0P I A 


;CHECK FOR BUF END . 


1009. 


1003 


05. 62 


21 F 7 


A, 




JMP 


PUT I T 


SNOT DON p 


1010* 


1 004 


0563 


8019 


B 




LO 


0 1 WHA T 


;GET p LAG* 


1011 . 


1 005 


0564 


4800 


A 




AI SZ 


0,0 


;IF NO ERRORS WILL BE ZERO. 


1012. 


1006 


0565 


2 104 


A 




JMP 


NGTV AR 


-AN ERROR. 


1013. 


1007 


0566 


29AD 


A 




JSR 


PCK5M 


;PRINT CHECK SUM, 


1014. 


100 8 


0567 


0200 


A 




RTS 






1015. 


1009 


0 568 














1016. 


1010 


0568 






ADAG2 








1017. 


i f\ i * 

iUl 1 


n r~ ✓ n 




ri 

n 




t t 




X BUMP H IGH CKSM. 


1018* 


1012 


0569 


21F3 


A 




JMP 


KFPC 


;D0 REST. 


1019. 
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1020. 


1014 


056A 


















1021. 


1015 


056A 






MGTV AR : 












1022. 


1016 


056 A 


2C11 


B 




JSR 


3MESSA 


; PR I NT MESSAGE. 






1023. 


1017 


056B 


0794 


A 




-WORD 


VDON 








1024. 


1018 


056C 


2000 


8 




JMP 


BST fiRT 


; TO START. 






1025. 


1019 


0560 


















1026. 


1020 


0 56C 






PRC K : 












1027. 


1021 


056D 


2C27 


B 




JSR 


SCRLFA 








1028. 


1022 


056F 


4C00 


A 




LI 


0*0 


; SET ACO TO 0. 






1029. 


1023 


056F 


A039 


B 




ST 


0 .HICKSM 


;ZERO HIGH CHECK SUM. 






1030. 


1024 


0570 


A 02 2 


B 




ST 


0 »R CM 


; ZERO PROM ADDRESS. 






1031. 


102 5 


0571 


4E00 


A 




L 1 


2 t 0 


;ZERO CHECK SUM. 






1032. 


1026 


0572 


202 8 


R 


PRL P: 


JSR 


35 R EADW A 


; READ A PROM WORD • 






1033. 


1027 


0573 


3200 


A 




K ADD 


0*2 


;UP DATE CHECK SUM. 






1034. 


1028 


0 574 


1 Al 0 


A 




oOC 


CY0V*ADD1 


; ADD ONE TO HIGH CKSM 


IF 


BRANCH. 


1035. 


1 029 


0575 


2 CI 4 


B 


PRLGP; 


jSR 


3 RDM I A 


; CHECK FOR END. 






1036. 


1030 


0576 


2 IF 8 


A 




JMP 


PRLP 


; KEEP GOING. 






1037. 


1 03 1 


0577 


299C 


A 


00: 


JSR 


PCKSM 


;PRINT CHECK SUM. 






1038. 


1 032 


0578 


2QQ0 


R 




JMP 


BSTART 


;T0 START* 






1039. 


1033 


0579 


















1040. 


1 034 


0579 






BCK : 












1041. 


1035 


0579 


2C2 7 


8 




JSR 


3CRLFA 








1042. 


103 6 


057A 


4C00 


A 




L I 


Ot 0 


; ZERO ACO. 






1043. 


1037 


0578 


A 03 9 


B 




ST 


0* H ICKSM 


;ZERO HIGH CHECK SUM. 






1044. 


1 03B 


057C 


A 022 


B 




C T 


Ot RCM 


:ZERC PRCM ADDRESS. 






10 45.. 


1039 


057D 


4E00 


A 




L I 


2,0 


X ZERO CHECK SUM. 






1046. 


1 040 


057F 


8C23 


B 




LD 


3 9 SWBUF 


; ST ART ING ADDRESS OF 


BUFFER . 


1047. 


1041 


057F 


CB00 


A 


BCKLP: 


ADD 


Zi I 3) 


; UP DAT A CHECK SUM. 






1048 . 


1 042 


0580 


1 A06 


A 




bOC 


CYOV* DAD 


; ADD ONE TO HIGH CKSM 


IF 


BRANCH. 


1049. 


1 043 


058 1 


4801 


A 


KKPP : 


A ISZ 


3*1 


;UP DATA SUFFER POINTEP. 




1050. 


1044 


0582 


2C14 


8 




jSR 


SROMIA 


t CHECK IF DONE. 






1051. 


1045 


0583 


21FR 


A 




J MP 


BCKLP 


; KEE P GOING. 






1052. 


1 Cl 


0 584 


2 I F 2 


A 




J HP 


OD 


; DONE. 






1053. 


1 047 


0585 


















1054. 


1 04 ft 


0585 






ADni : 












1055. 


1049 


0585 


7839 


B 




ISZ 


HTCKSM 


; ADD 1 TO HIGH CKSM. 






1056. 


1050 


0586 


21FE 


A 




JMP 


PRLGP 


;return. 






1057. 


1051 


0587 


















1058. 


1052 


0587 






DAD: 












1059. 


1053 


0587 


7839 


B 




iSZ 


HICKSM 


;ADD 1 TO HIGH CKSM. 






1060. 


1054 


0588 


21F8 


A 




JMP 


KKPP 


; RETURN. 






1061. 



REVISION-G 05/16/74 

PRMSFT P003438 03/19/75 



04/02 5:41PM 
PAGE NUMBER 31 



1 05 5 
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1062. 


1056 


0589 














1063 . 


1057 


058 9 






OUP : 








1064. 


105 8 

X w V 


0589 


2C1 1 


R 




JSR 


3MESSA 


; PRINT MESSAGE * 


1065. 


1059 


05.8 A 


077 0 


A 




. WORD 


LOR CM 




1066. 


1 06 0 


0588 

W > 4J u 


2C?9 


R 




jSR 


3L0KSA 


; WA I T FCR INPUT 


1067. 


106 1 


058C 


4 COO 


A 




L I 


0*0 


;SET ROM ADDRESS 


1068. 


1 062 


0580 


A022 


B 




ST 


OtRCM 


;SAV£ IT 


1069. 


1 063 


058E 


8C23 


B 




LO 


3*SWBUF 


; MEMORY POINTER 


1070. 


1064 


058F 






DUPED: 








1071. 


1 065 


05 8F 


2C2 8 


8 




JSR 


3RE ADWA 


; READ FROM PROM 


1072. 


1066 


059 0 


A 300 


A 




ST 


0 ♦ ( 3 ) 


;STORE IT 


1073. 


1067 


0591 


4801 


A 




AISZ 


3,1 


;BUMP POINTER 


1074. 


1 06 a 


0592 


2C14 


B . 




JSR 


3R0MIA 


; ADD ONE TO ADDRESS. 


1075. 


1 069 


0593 


21FB 


A 




JMP 


DUPED 


:NOT DONE 


1076. 


1070 


05 94 


2 98F 


A 




JSR 


VA IR 


; VER I FY, 


1077. 


1071 


0595 


2500 


A 




JMP 


3FF IN 


; PR I NT MESS AGE * 


1078. 


1 072 


0596 














1079. 


1 073 


0596 


C4E8 


A 


FF IN : 


• WORD 


FIN 




1080. 


1 074. 


0597 














1081. 


1075 


0597 


03CE 


A 


AR R : 


• WO R D 


ERROR 




1082. 


1 076 


0598 














1033. 


107 7 


0598 














1084. 


1078 


059 8 


0639 


A 


TNGI : 


• WORD 


PTfsGI 




1085. 


1079 


0599 


CC04 


A 


K4 : 


• WORD 


4 




1086. 


1 08 0 


03 9 J 














1087., 


1 08 1 


0 59ft 














1088 . 


1 082 


059A 






RFDCRLs 








1089. 


1083 


059 A 


4F10 


A 




LI 


3*CRAD 


; ADDRESS OF CR • 


1090. 


1 084 

X vy v** ~ 


059B 


8168 


A 




i_D 


0* CRBU F 


: ADDRESS OF BUFFER • 


1091. 


1085 


059C 


0602 


A 




ROUT 


STAfrO 


1 RE AD CARD. 


1092. 


1086 


059D 


1C01 

. X \*xd. JL..-. 


A 




oOC 


POA« m+2 


.; CHECK IF RECEIVED. 


1093. 


1087 


059E 


2 1 F D 


A 




JMP 


m-2 




1094. 


108 8 


0 59 F 


040 1 


A 


NT LO P • 


*i I H 


ST A TU S 


iGET STATUS. 


1095 . 


1 089 


05A0 


7164 


A 




SKAZ 


0 f HCO 


; CHECK IF ERROR. 


1096. 


1090 


05A1 


0200 


A 




RTS 




; ERROR. 


109 7. 


109 1 


0 542 


5CFE 


A 




SHR 


0*2 




1098. 


1092 


05 A3 


1 4F 8 


A 




60C 


BIT 1 .WTLCP 


;BUSY. 


1099. 


109 3 


0 5A4 


0201 


A 




RTS 


1 


:DONE. 


1100. 


1 094 


05 A5 














11 01 . 


1 09 5 


05A5 














1102. 


1 096 


05 A5 






CR ER : 








11 03. 


1097 


05A5 


4400 


A 




PULL 


0 




1104. 


1098 


05A6 


4F10 


A 




i_I 


3,CPAD 


; GET CARD READER ADDRESS. 


1105. 


1099 


05A7 


0401 


A 




KIN 


STATUS 


; GET STATUS. 


1106. 


1100 


05A8 


71F0 


A 




oKA Z 


0,K4 


;SKIP IF ON LINE. 


1107. 


1101 


05 A 9 


2101 


A 




J HP 


CR 


; NOT ON LINE. 


1108. 


1102 


0 5AA 


216E 


A 




J MP 


IN ERR 


-.ERROR. 


1109. 
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1110. 


11 94 


05 A B 






CR : 








1111. 


1105 


05AB 


2960 


A 




J SR 


NEW 


;FIX FLAGS FDR BUFFER A0D9ESS. 


1112. 


1106 


0 5 AC 


All 1 


A 




ST 


0, ANDCR 


;SET AND INSTRUCTION. 


1113. 


110 7 


05A0 


2C1 1 


R 




J SR 


SMESSA 


; PRINT MESSAGE. 


1114. 


1108 


05AE 


0807 


A 




• WORD 


CRRL 




1115. 


1 109 


05AF 


2C29 


B 




J SR 


3L0KS A 


:WAIT FOR KEYBOARD H I T . 


1116. 


1110 


0 5 B 0 


2C27 


B 




jSR 


alCRLF A 




1117. 


1111 


0581 


2101 


A 




uMP 


CRRLM 




1118. 


1112 


0582 














1119. 


1113 


05B2 






TORSC : 








1120. 


1114 


0 58 2 


2919 


A 




J SR 


CRCKSM 


;CHECK SUM UNT ILL DONE. 


1121. 


1115 


05*3 






CRRLM J 








1122. 


1116 


0563 


292 8 


A 




j SR 


REAOCR 


; RE AD A CARD. 


1123. 


1117 


0 5B4 


25E3 


A 




j MP 




; DPNE READING. WAS AN *. 


1124. 


1118 


0 5B5 


8300 


A 




LO 


0,(3) 


;GET RECORD TYPE. 


1125. 


1119 


0566 


X2FB 


A 




tiOC 


G TEC* TORSC 


; T I TLE CR SYMBOL. 


1126. 


1120 


05B7 


7151 


A 




SKAZ 


0* M4000 


:SKIP IF OAT A. 


1127. 


1121 


05B8 


2 IF 9 


A 




j HP 


TORSC 


;END RECORD. 


1128. 


1122 


0589 






CR DATA : 








1129. 


1123 


Q5B9 


2912 


A 




J SR 


CRCKSM 


: CHECK RECORD* 


1 1 30* 


1124 


05BS 


8049 


A 




LO 


3 , CRBUF 


; ADDRESS OF CARD BUFFER. 


1131 . 


1 12 5 


05R8 


8700 


A 




LO 


1 * (31 


;GET L ENGTH. 


1132* 


11 26 


05BC 


6436 


B 




mNO 


1 , K3FFF 


;K^EP LENGTH. 


1133. 


1127 


05B0 


8303 


A 




LD 


0,3(3) 


;GET INITIAL ADDRESS. 


1134. 


1128 


OSBE 


j6037 


B 


AM OCRs 


. JjSlQ 


Q., jUjMSK 


ZKE^p LEAST BITS* 


113 5. 


1129 


058 F 


328 1 


A 




hCP y 


0,2 




1 136. 


1130 


05CO 


C833 


B 




ADD 


2* BUFFAD 


; ADDRESS OF WRITE BUFFER * 


1137. 


1131 


Q5C1 


8038 


B 




lO 


0*F I RAD 


: CHECK IF FIRST. 


1138. 


1132 


0 5C2 


1501 


A 




oOC 


NZRC.NFRN 


;no • 


1139 . 


1133 


05C3 


A 83 8 


B 




ST 


2 , F IR AO 


;Y£S SAVE ADDRESS. 


1140. 


113.4 


0J5C4 


-4.9FC 


A 


MFRM i .... 


AJSl 


1,-4 


;UP DATE LENGTH* 


1141. 


1135 


0 5C5 






CRST: 








1142. 

4. Mm- ~ £~ . 


1136 


05C5 


8306 


A 




lD 


0 * 6 C 3 ) 


5 GET DATA. 


I t / I 

L i *to . 


1137 


0.5C6 


A20O 


A 




ST 


0,(2) 


;STORE IT. 


1144. 


1138 


05C7 


4A01 


A 




AlSZ 


2,1 




1145. 


1139 


0 5C8 


4B01 


A 




AISZ 


3,1 




1146. 


1140 


05C9 


49FF 


A 




aISZ 


1,-1 


; CHECK IF CARD DONE. 


1147. 


1141 


05CA 


21FA 


A 




J MP 


CRST 


;N0. 


1148. 


1142 


05CB 


21F7 


A 




j MP 


CRRLM 




1149. 
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11 50. 


1 1 44 


05 CC 






CRCKSM: 








11 51 • 


1145 


05CC 


8D3 7 


A 




LD 


3,CR8UF 




1152. 


1146 


05CD 


8300 


A 




LO 


0,13) 


;GET LENGTH. 


11 53. 


1147 


05CE 


6036 


B 




AMD 


0 »K 3FFF 


;KEEP LENGTH. 


1154. 


1148 


Q5CF 


328 I 


A 




kCP Y 


0,2 


; LENGT H IN AC2 • 


1155. 


1149 


05D0 


8301 


A 




LD 


0,1(3) 


;GET CHECK SUM. 


1156. 


1150 


050-1 


1109 


A 




iiOC 


ZERCENDCK 


;N0 CHECK SUM. . 


1157. 


1151 


0 50 2 


5001 


A 




C Al 


0,1 


; F QRM 2'COMP. 


1158. 


1152 


0503 


3181 






RCPY 


0, 1 


;CHECK SUM IN AC1. 


1159. 


1153 


050.4 


8302 


A 




LD 


0,2(3) 


; GET WORD. 


1160. 


1154 


0505 


3100 


A 




R ADD 


Of 1 


?UP DATE CHECK SUM. 


1161. 


11 55 


0506 


4801 


A 




A ISZ 


3,1 


;BUMP POINTER. 


1162. 


1156 


0507 


4AFF 


A 




AISZ 


2,- 1 ... 


... ;CH£CJC IF DONE. 


1163. 


1157 


05D8 


2.1FB 


A 




JMP 


.-4 




1164. 


11 58 


05D« 


4900 


A 




mISZ 


1.0 


5 CHECK IF OK. 


1165. 


1159 


QSlDJl 


-2101 


_A_ 




J MP 


. + 2 


; BAD CHECK SUM. 


1166. 


1160 


0508 


0200 


A 


ENOCK : 


RTS 






1167. 


1161 


05DC 


294F 


A 




JSR 


BAOCK 


5CHECK IF REPEAT. 


1168. 


1162 


05DD 


4400 


..A 




PULL 


0 




1169. 


1163 


05QE 


2 ICC 


A 




J MP 


CR 


;YES. 


1170. 


1164 


05DF 














1171. 


1165 


Q5.QF 


0010 


A 


CRAD. 




2*8 




1172. 


1166 


05DF 


C002 


A 


STAND 




2 




1173. 


1167 


05OF 


0001 


A 


STATUS 




1 




1174. 
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1168 


0 5 0 f 








.PAGE 






1175. 


1169 


05DF 






READCR ; 








11 76. 


1170 


05CF 


8924 


A 




LO 


2f CR8UF 


; GET CARD BUFFER. 


1 177. 


1171 


05E0 


2C32 


B 




JSR 


3RE0CR 


;RE AD A CARD. 


1178. 


117 2 


0 5E1 


21C3 


A 




jmp 


CRER 


I ERROR. 


1179. 


1173 


05E2 


8D21 


A 




LO 


3, CPBUF 




1180. 


1174 


05E3 


3E81 


A 




KCPY 


3*2 


;AC2 IS POINTER. 


1181. 


1175 


05E4 


8300 


A 




LD 


0* (33 


;GET PUNCH WORD. 


1182. 


1176 


05E5 


D121 


A 




SUB 


0* A STR 


;CHECK IF *. 


1183. 


11:77 


05E6 


1501 


A 




oOC 


NZPC.+2 


5 NO +2. 


1184. 


1178 


05 E 7 


0200 


A 




RTS 




5WAS AN *. 


1185. 


1179 


05E8 


4D01 


A 




L I 


1,1 


;SET COUNTER . 


1186. 


1180 


05E9 


A41 9 


B 




ST 


1 , WHAT 


;RIT COUNTER * 


1187. 


118 1 


0 5EA 


AC1A 


B 




ST 


3 * WHERE 


; ADDRESS. 


1188. 


1 1 82 


05EB 


901 A 


B 


STEP 1 : 


LD 


0, SPHERE 


; GET PUNCH WORD. 


1189, 


118 3 


0 5 EC 


781 A 


R 




1 sz 


WHERE 


;BUMP ADDRESS. 


1190. 


1184 


0.5 EC 


8 CIS 


A 




LD 


3* ATBL 


;CONVERT TABLE. 


1191. 


1185 


05EE 


1 1 08 


A 




dOC 


ZERO. STEP2 


; 8L ANK . 


1192. 


1 186 


05EF 


F300 


A 


SL. 0P1 : 


SKNE 


0 1 i 3 ) 


; CHECK FOR CHAR • 


1193. 


118 7 


Q5F0 


2106 


A 




JMP 


STEP2 


;match. 


1194. 


1 188 


0 5F 1 


4B01 


A 




AI SZ 


3 , 1 


;BUMP POINTER. 


1195. 


1189 


05F2 


EDI 5 


A 




SKG 


3 ♦ ETBL 


;SKIP IF BAD CHAR. 


1196. 


1190 


Q.5E.3. 


21FB 


A 




J MP 


SLQP1 


;KEEP CHECKING* 


1197. 


119 1 


05F4 


2C1 1 


R 




jSR 


3MESSA 


;PRINT MESSAGE. 


1198* 


1192 


05F5 


0810 


A 




• WORD 


INVAL 




1199. 


. 1 193 


Q5E6 


.2000. 


.B 




aBP. 


B ST ART . .... 


« t n ctabt 

#. ,i,<_j j i flfix* 


x £~ w \j * 


1194 


05^7 














1201 . 


1195 


05F7 


DDGE 


A 


STEP 2 : 


SUB 


3, ATBL 


; CREATE WORD. 


1202. 


1196 


05F 8 


5004 


A 




SHL 


1*4 


; MAKE ROCM FOR NEW BIG. 


1203. 


119 7 


05F9 


3000 


A 




K ADD 


3*1 


;MAKE WORD. 


1204. 


1 198 


05 FA 


8019 


B 




LO 


0* WHAT 


; GET COUNT. 


1205. 


1199 


0 5F.B 


1303 


A 




iiOC 


ODD ,STEP3 




1206. 


1200 


05FC 


1402 


A 




bOC 


BIT 1, STEP3 




1207. 


1201 


0 5F 0 


A6GG 


A 




S T 


1,12 i 


♦PUT NEW WORD AWAY* 


1208 * 


1202 


05FE 


4A01 


A 




AISZ 


2,1 


;BUMP POINTER. 


1209. 


1203 


05FF 


7819 


B 


STFP3: 


iSZ 


WHAT 


;BUMP COUNT. 


1210. 


1204 


0600 


48B8 


A 




AISZ 


0,-72 


;CHECK FOR END OF CARD. 


1211. 


-1205 


0601 


21E9 


A 




JMP 


STEP1 


;N0. 


1212. 


1206 


06 02 


8001 


A 




LD 


3 ♦ CR BU F 




1213. 


1207 


0603 


0201 


A 




kTS 


1 




1214. 
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1 PAR 
I C.UO 


n a n a 
u out 








. D A {1 p 
• rMvu 






1215. 


1 9 HG 


n AHA 


n Q A F 

U 3A r 


A 


Li" D U r • 


» jfS u r\ u 


r r i if f 




X *- J» v» a 


i oi n 

L 1 U 


U C U 9 


U Ul . u 


A 

M 


fc n • 








1217 . 


1911 
i c. 1 I 


A AH A 


UO/1 J 


A 


A T Rj ; 


- wn r n 


TRl 




1218. 




n a n 7 

U O U 1 


0A9 9 


A 

M 


ACTD' 

mo i r-v • 


ynon 


A4? ? 




1219. 




a a nft 


ft ft "2 A 


A 


FT PI * 


y n a n 


TRl +1 c; 




i. i. C. V • 


JL £ It- 


ft AHQ 


Aftftft 


A 


MAfiftO • 
r'*T U U U • 


wn r n 


040.00 

*j v \J 




1221. 


1 jL X 9 


ftA PA 
UO Li A 


ft "^^R 

U ,3 J O 


A 


A Q T A R T • 




CTAOT 




1222. 


1 "5 1 A 


A £, no 


ft nft ft 


A 


1 <s W ft * 
L o f( D « 


wn r n 

• HUM/ 






1223 . 


1917 


ft Anr 














1224. 


. J. £ JL Q 


UOut 














1225. 




ft Anr 






n f y * 








1226. 


i i /: v 


ft a or 

%J C U 


A POO 






i I 

+- * 


1.0 


:SFT FIR^T FLAG. 


122 7. 


1-22 1 


u.cuu 


A43 a 


ft 

■U 




ST 


1 »F IRAQ 




1228 . 


199 9 


OA HF 


ft 03 3 

D U J ~J 


R 




LD 




ICH^CK IF DFFAULT BUFFFR* 


1229. 


199 3 


HA OF 


f 034 


a 

o 




sKN F 


O.TRFAH 


:IF YFS NO SKIP* 


1230. 




HA 1 ft 


9 1 ft 3 


A 
** 




IMP 


ni n 

SJ i- XJ 


2 N-fl RFAIl TH FlXFf) RUFFFR. 


123 1. 


1 9 9 ^ 


n ai i 


A ft^O 


ft 




CT 
o 1 




:<;FT NFW R11FFFR Fi AG- 


1232. 

X C * c * 


1 99A 


Ail ? 


P I HA 


A 




i n 




•CCT MA^K FOR 4K- 


1233 . 


1 9 97 


ft A 1 3 


fl 9 ft ft 


A 




IV .1 o 






1234. 


19 9ft 


ftA 1 A 














1235. 
i. j -j . 


1 9 9CJ 


ft A 1 A 














12 36- 

1 L J U» 


12 3 Q 


06X4 


A439 


B. 




M. 


l.HICKSM 


;SET DEFAULT BUFFER FLAG, 


1237. 


1231 


0615 


810? 


A 




LD 


0 , A^ns 


:SET HASK FOR 512 WORDS. 


1238. 


1232 


0616 


0200 


A 




kTS 






1239. 


1233 


0617 














.1240. 


1234 


061 7 


6 037 


B 


AN DL : 


mND 


0^AD«5K 




1241. 


1235 


0618 


6013 


R 


AN OS : 


«ND 


0,K511 




1242. 
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1236 


0619 








• PAGE 






1243. 


1237 


0619 














1244. 


1238 


0619 














1245. 


1239 


0619 














1246. 


1240 


0619 


2C11 


8 


INFRR; 


J S R 


a -MESS A 


? PP INT MESSAGE • 


1247. 


1 241 


06 1A 


0819 


A 




, WORD 


X^I 5 




1248. 


1242 


0618 


2000 


8 




JMP 


BST ART 


?TQ START. 


1249. 


1243 


061 C 














1250. 


1244 


061 C 






CK SH : 








1251. 


1245 


061C 


4SFF 


A 




A I SZ 


3,-1 


•UPDATE LENGTH* 


1252. 


1 246 


0610 

\.J VJ 


2101 


A 




J MP 


*+2 


;N0T DONE. 


1253. 


1247 


061 F 


2103 


A 




J MP 


B ADC 


; DONE • 


1254. 


1248 


061F 


2955 


A 




JSR 


REAC2 


;reao word. 


1255. 


1249 


0 620 


3200 


A 




k AO 0 


0*2 


; UPD AT E CHECK SUM. 


1256. 


1250 


0621 


0200 


A 




RTS 




;NORMAL NOT DONE RETURN. 


1257. 


1251 


0622 


7819 


B 


BADD J 


i SZ 


WHAT 


;CHECK IF THERE WAS A CKSM. 


1258. 


12 52 


0623 


2101 


A 




JMP 


• +2 


JTHFRE WAS A CHECK SUM. 


1259. 


1253 


0624 


0201 


A 




RTS 


1 


;N0RMAL DONE RETURN. 


1260. 


1254 


062 5 


4A00 


A 




A I SZ 


2,0 


5SKIP IF CHECK SUM OK. 


1261. 


12 55 


0626 


2101 


A. 




^MP 


.+2 




1262. 


1256 


062 7 


0201 


A 




RTS 


1 


;GOOD. 


1263. 


1257 


0628 


2903 


A 




jSR 


BADCK 


;CHFCK IF REPEAT* 


1264. 


12 58 


0629 


4400 


A 




PULL 


o 




1265. 


12 59 


Q62A 


4400 


A 




PULL 


o 




1266. 


1 260 


062B 


2 108 


A 




jMP 


P T 1 


; YES. 


1267. 


X26-1 


06?f 














1268. 


1 2 62 


062C 


?ci\ 


R 


BA OCR : 


«iSR 


3MESS A 


:PRI^ T MESSAGE 1 . 


1269. 


1263 


0620 


0 7C7 


A 




. WORD 


CKER 




1270. 


1264 


062 E 


2D02 


A 




JSR 


3INYNA 


; GET YES OR NO • 


1271. 


1265 


062F 


2000 


B 




JMP 


BST ART 


;T0 START. 


1272. 


1266 


0630 


0200 


A 




RTS 




;yes. 


1273. 


JL2j6-7 


0631 














1274. 


1268 


0631 


050A 


A 


TNYNA: 


.WORD 


I NY K 2 




1275. 
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1269 


0632 








.PAGE 






1276. 


1270 


0632 






PT : 








1277. 


127 1 


0632 


2 90 9 


A 




J SR 


NEW 


;F1X FLAGS FOR SUFFER • 


1278. 


1272 


0633 


At 51 


A 




ST 


0* AfsDPT 


;SET MASK INSTRUCTION. 


1279. 


1273 


0.634 


2C11 


B... 


PTi; 


uSR . ... . 


a MESS A 


;PPINT MESSAGE. 


1280. 


1274 


0635 


0720 


A 




. WORD 


DATA 1 0 




1281. 


1275 


0636 


2C29 


B 




uSR 


3L0KSA 


;WAIT FOR KEYBOARD HIT* 


1282. 


12 76 


0637 


2C27 


B- 




JSR 


aCRLFA 




1283. 


127 7 


063 8 


2942 


A 




JSR 


PTRLM 


? R E A D RLM PAPER TAPE. 


1284. 


1278 


0639 






PTNGI: 








1285. 


1279 


0639 


2 CXI 


B 




JSR 


3MESSA 


;PRINT MESSAGE. 


1286. 


128 0 


0 63 A 


074A 


A 




* WORD 


STAPTA 




1287. 


1281 


06 3 B 


8038 


B 




to 


Q.FIRAD 


; GET FIRST BUFFER ADDRESS. 


1288. 


- X 2 S 2 


063C 


2£26 


B.. 




aSR 


20HEXA 


. ; PRINT IT. 


1289. 


1283 


063 D 


8039 


B 




LD 


Ot H ICKSM 


;CHECK IF FIXED BUFFER OR NOT. 1290. 


1284 


063 E 


1529 


A 




dQC 


NZRC, PTDN 


;N0. 


1291. 


128 5 


06-3 E 


801.Q. 






LD 


G.BUFEND 


.CHECK FOR 2K. 


1292. 


1286 


0640 


8833 


B 




i.D 


2 *BUFF AD 




1293. 


1287 


0641 


F012 


B 




SKNE 


0 «MFF 




1294. 


128 8 


0642 


2102 


A. 




JMP 


.4-3 




1295. 


1289 


0643 


2C27 


B 




JSR 


3CRIFA 




1296. 


1290 


0644 


21.6B 


A 




JMP 


MOVIE 


5 IS NOT 2K. 


1297. 


L29J. 


0.645 


2C11 


...B. 


DUMB ; 


jSR 


2MESSA 


1 PR I NT MESSAGE. 


1298. 


1292 


0646 


G7FD 


A 




. WORD 


UL 




1299. 


1293 


0647 


20C2 


A 




JSR 


2ASTART 


; GET LAST CHAR. 


1300. 


1294 


064.8 


.8X31 A.. 


-B-. 




LD 


0* WFERE 


;GET CHAR. 


1301. 


1295 


0649 


8833 


B 




LD 


2 » BUFF AO 




1302. 


129 6 


064 A 


6012 


B 




AND 


0 1 MFF 


;KEEP LAST. 


1303. 


1297 


064B 


48FB 


A 




AISZ 


0.-5 


.CHECK IF LOWER. 


1304. 


1298 


064C 


2101 


A 




JMP 


.+2 




1305. 


1299 


064D 


2162 






J MP 


MOV IE 


;yes. 


1306. 


13 0.0 


064E 


...4.BFJ. .. 


A. 




AISZ 


0,-9 


;CHECK IF UPPER. 


1307. 


1301 


064F 


21F5 


A 




JMP 


DUMB 


; BAD CHAR. 


1308. 


<* ?\ 


0650 


8C23 


D 




LD 


3 * S wBUF 


. f 1 T* f l~l 

* O £ i 1 u * 


1309. 


1303 


0 6 51 


89B9 


A 




lD 


2,L5WB 


;GET FROM. 


1310. 


1304 


0652 


2960 


A 




JSR 


MOVE 


? MOVE IT. 


1311. 


1305 


0653 


2101 


A 




JMP 


.+2 




1312. 
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1306 


0654 








. PAGE 










1313. 


1307 


0654 






PTNG: 












1314. 


1308 


0654 


2C27 


B 




»iSR 


3CRLFA 








1315. 


1309 


0655 


2C11 


B 




JSR 


SMESSA 


i PR I NT MESSAGE. 






1316. 


1310 


0656 


07AB 


A 




• WORD 


LOR 








1317. 


1311 


0 657 


20R2 


A 




JSR 


3A START 


;GET CHAR* 






1318. 


1312 


0658 


8 01 A 


B 




lO 


0 , WHERE 


; GE T LAST CHAR. 






1319. 


1313 


0659 


6 012 


B 




AND 


0* MFF 


;KEEP JUST LAST. 






1320. 


1314 


065A 


48FB 


A 




AlSZ 


0,-5 


;CHECK IF L. 






1321. 


1315 


065B 


2101 


A 




JMP 


.+2 


;NOT AN L. 






1322, 


1316 


065C 


210E 


A 




J MP 


LEF 








1323. 


1317 


065C 


48FA 


A 




AI SZ 


0,-6 


;CHECK IF R. 






1324. 


1318 


065E 


21F5 


A 




JMP 


PTNG 


•;NOT L OR R. 






1325. 


1319 


065 F 


4C00 


A 




i_I 


0,0 


;ZERO. 






1326. 


1320 


0660 


A022 


B 






0,RCM 


;ZERO ROM ADDRESS. 






1327. 


1321 


0661 


8C23 


B 




LD 


3,SkBUF 


; GET STARTING ADDRESS 


CF 


BUF. 


1328. 


1322 


0662 


8 300 


A 


RL t : 


4.0 


0, C3) 


; GET WORD. 






1329. 


1323 


0663 


6012 


B 




AND 


0 , MFF 


; M A S K OFF MSD. 






1330. 


1324 


0664 


A300 


A 




ST 


0,(3) 


;STORE IT. 






1331. 


132 5 


0665 


4B01 


A 




AlSZ 


3,1 


? BUMP ADDRESS. 






1332. 


1326 


0666 


2C14 


B 




JSR 


3RQMI A 


5BUMP POINTER. 






1333. 


1327 


0667 


21FA 


A 




JMP 


RLL 


;NOT DONE. 






1334. 


1328 


0668 


2C11 


B 


PTDN: 


JSR 


3MESSA 


; PRINT MESSAGE. 






1335. 


132 9 


066 9 


0794 


A 




• WORD 










1336. 


1330 


066A 


2000 


B 




JMP 


8 ST ART 


;T0 START. 






1337. 


1331 


0-663 


















1338. 


1332 


0668 


















1339. 


1333 


066 B 


4C00 


A 


LEF: 


Li 


0,0 


% ZERO ACQ. 






1340. 


1334 


066C 


A 022 


B 




ST 


0 ,ROM 


SZERO ROM ADDRESS. 






1341. 


1335 


066D 


8C23 


B 




LD 


3,SWBUF 


; GET STARTING ADDRESS 


OF 


BUF. 


1342. 


1336 


066F 


8300 


A 


LLL : 


LD 


0,13) 


;GET WORD. 






1343. 


1337 


066 F 


5CF8 


A 




SHR 


0,8 


;PUT MOST TO LEAST. 






1344* 


133 8 


0670 


A 300 


A 




ST 


0,(3) 


;STORE IT. 






1345. 


1339 


0671 


4B01 


A 




A IS Z 


3 ♦ 1 


;BUMP ADDRESS. 






1346 • 


1340 


0672 


2C14 


B 




JSR 


SRO^IA 








1347. 


1341 


0 6 73 


21FA 


A 




JMP 


LLL 


:NOT DONE. 






1348. 


1342 


0674 


21F3 


A 




J MP 


PTDK 








1349. 
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1343 


0675 






* PAGE 






1350. 


1344 


0675 












1351. 


1345 


06 75 




PE fi02 : 








1352. 


1346 


067 5 


2 CAE 


6 


JSR 


3GE T C 


; GET CHAR. 


13 53. 


1342 


0 676 


3181 


A 


*CPY 


0, 1 


;SAVE IN AC 1 . 


1354. 


1348 


0677 


2 CO E 


R 


*iSR 


SGETC 


;GET CHAR, 


1 355. 


1349 


067€ 


5D08 


A 


SHL 


1*8 


;MOVE TO MOST. 


1356. 


-13 50 


0679 


3400 


A 


RADD 


1 * 0 


; FORM WORD « 


1357. 


1351 


06 7 A 


0200 


A 


RTS 






1358. 


1352 


06 7B 




PTRLM: 








1359. 


1353 


067 B 


2920 


A 


JSR 


LSTX 


;WAIT FOR STX CHAR* 


1360. 


1354 


067C 


29F8 


A 


JSR 


R E A02 


;RE.AD A 2 FRAME WORD. 


1361. 


1355 


0670 


121C 


A 


aOC 


GTEG*TORS 


;G0 TO TITLE OR SYMBOL. 


1362. 




0-6 ZE... 


718A. 


...A™...- 


..SKAZ .. 


Q,M.A000 


; .CHECK, FOR DATA. „_ 


1363. 


13 57 


067F 


2116 


A 


JMP 


ENDRC 


, END RECORD • 


1364. 


1358 


0680 












1365. 


1359 


06B0 




-.PTOATA; 








1366. 


1360 


0680 


291 0 


A 


JSR 


F I XL 


;FIX LENGTH. 


1367. 


136 1 


0681 


299A 


A 


J SR 


CKSM 


;READ TYPE. 


1368. 


.13 62 


06£2 


2100. 


A 


JMP 


. + 1 


; DUMMY* 


1369* 


1363 


0683 


2998 


A 


J SR 


CKSM 


; READ INITIAL ADDRESS. 


1370* 


1364 


0684 


2100 


A 


JMP 


. + 1 




1371. 


136 5 


06.85 


...6 03 7.. 


B..ANBPT: 


AMD 


0 « ADMSK 


JSMASK OFF* 


1372. 


13 66 


06 86 


C033 


R 


ADO 


0» BUFFAD 


; MAKE STARTING ADDRESS. 


1373. 


1367 


0687 


A01 A 


B 


ST 


0* WHERE 


;SAVE ADDRESS. 


1374. 


.136 8 


06 £8 


.8038, 




j_n 


n p J Q ah 


• CHECK IF FIRST* 


1375. 


1369 


0689 


1502 


A" 


tiOC 


NZRCFRSTP 


; CHECK IF FIRST. 


1376. 


1370 


068A 


801 A 


B 


LD 


0» WHERE 


; S A V E FIRST ADDRESS IN FIPAQ. 


1377. 


1371 


068B 


A 03 8 


B 


ST 


0»F IRAD 




1378. 


1372 


Q68C 




FR S TP i 








1379. 


1373 


068C 


298F 


A 


J SR 


CKSM 


; READ TYPE 1. 


138 0. 


....1374... 


0680 


2100. 


A 


J MP. . 


• + 1 


;. DUMMY.*...... ... 


138 1* 


13 75 


068F 


298 0 


A 


JSR 


CKSM 


; READ TYPF 2 . 


1382. 


1376 


06 8F 


2 1 uu 


A 


J HP 


» + 1 


. r*i iu hi/ 

» uu'in t • 


1383* 


13 77 


0690 


298B 


A ST DATA: 


JSR 


CKSM 


; RE AD DATA. 


1384* 


1378 


0691 


2101 


A 


JMP 


.+2 


1 NORMAL RETURN. 


1385. 


1379 


0692 


21E8 


A 


JMP 


PTRLM 


; READ NEXT RECORD. 


1386. 


.13&0 


0693 


BfllA 


a 


ST . 


0 » 2WHERE 


; STORE DATA* 


1387, 


1381 


0694 


781 A 


B 


i SI 


WHERE 


;8UMP POINTER. 


1388. 


1382 


0695 


21FA 


A 


JMP 


STOAT A 


;G0 GET NEXT. 


1389. 


. 1383 


0696 


2907 


A ENORC: 


JSR 


FI XL 


;FIX LENGTH AND CHECK SUM. 


1390. 


1384 


0697 


2984 


A 


JSR 


CKSM 


; R E A D WORD UPDATE CHECK SUM. 


1391. 


1385 


069 8 


21FE 


A 


JMP 


.-1 


;NOT DONE. 


1392. 


..1386 


069S 


0200 


A 


RTS 




; ALLDQNE * 


1393. 
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1387 


069 A 








-PAGE 






1394. 


13 8 8 


06 9 A 


2903 


A 


TQ R S : 


*iSR 


F I XL 


; FIX LENGTH. 


1395. 


1389 


069B 


2980 


A 




JSR 


CKSM 


;REAC UPDATE CHECK SUM. 


1396 . 


1390 


069C 


21FF 


A 




JHP 


• -1 


; NOT DCNE. 


1397. 


139 1 


069C 


21 DO 


A 




J MP 


PTRLM 


; READ NEXT RECORD* 


1398. 


1 392 


069E 














1399. 


1393 


069E 






EI XL : 








1400. 


139 4 


Q69F 


6036 


e 




AND 


0 » K3FFF 


; KEEP LENGTH. 


1401. 


1395 


069F 


3381 


A 




HCP Y 


0 , 3 


5LENGTH IN AC3. 


1402. 


1396 


06 AC 


4R01 


A 




A I SI 


3 * 1 


;CORRECT LENGTH, 


1403. 


1397 


06 Al 


29D3 


A 




USR 


RE AO 2 


; READ CHECK SUM. 


1404. 


1 39ft 


06A2 


4800 


A 




aISZ 


Of 0 


; CHECK IF CHECK SUM IS 0. 


1405. 


1399 


06 A 3 


210? 


A 




J MP 


YES 


;not o. 


1406. 


1400 


06 A 4 


4DEF- 


■ A- 




Ll 


u-i 


;SET FLAG. 


1407. 


1401 


06A5 


A419 


B 




ST 


1 , &HAT 


SSTGRE IT. 


1408. 


1402 


06A6 


5001 


A 


YFS: 


LAI 


Otl 


;FORM 2«S COMP. 


1409. 


1403 


06A7 


3281 


A 




RCPY 


0,2 


;AC2 HAS CHECK SUM* 


1410. 


1404 


06A8 


0200 


A 




RTS 






1411. 
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1405 


06 A 9 








.PAGE 






1412 . 


1406 


06A9 






LSTX: 








1413. 


140 7 


Q6A9 


2C0E 


B 




*jSR 


3GETC 


; GE T CHAR. 


1414. 


1408 


06 A A 


48FF 


A 




aISZ 


0,-2 


; CHECK FOR STX CHAR. 


1415. 


1409 


06 A B 


2 1F0 


A 




J (MP 


.-2 


; MOT IT. 


1416 . 


1410 


OfcAC 


0200 


A 




RT$ 






1417. 


141 1 


06 AO 














1418. 


1412 


06 AD 






MOVES: 








1419. 


1413 


06 AO 


2C2A 


B 




j SR 


3HEXYA 


;SEE IF THERE WAS A CHAR. 


1420. 


I 414 


06AE 


8033 


R 




LO 


0 * BUFF AD 


;N0 USE READ IN BUFFER. 


1421. 


1415 


Q6AF 


3281 


A 




RCPY 


0*2 


:PUT FROM ADDRESS IN AC2 • 


1422. 


1416 


06B0 






MOVIE: 








1423. 


1417 


06BO 


8C2 3 


B 




LO 


3,S>iBUF 


;PUT TO ADDRESS IN AC3. 


1424. 


1418 


0681 


2901 






JSR 


MOVE 


;MOVE IT. . 


1425. 


1419 


06B2 


21A1 


A 




J MP 


PTNG 


?D0 OPTIONS. 


1426. 


1420 


06B3 














1427. 


-1421 


06B3 














1428. 


1422 


0683 






MOVE : 








1429. 


142 3 


06B3 


4C00 


A 




Li 


0,0 


;ZERO ROM ADDRESS. 


1430. 


1424 


06B4 


AQ22 


B , 




ST 


0 , ROM 




1431. 


142 5 


06B5 


8200 


A 


MO VL : 


LP 


0, (21 


; GET WORD. 


1432. 


1426 


06B6 


A300 


A 




ST 


0,(3) 


? STORE IT. 


1433. 


1427 


.Q6B7 


4 A 01 


A 




kl S Z 


2,1 




1434. 


1428 


06B8 


4B01 


A 




A ISZ 


3,1 




1435. 


1429 


0689 


2C14 


R 




jSR 


3R0MI A 


I CHECK FOR END. 


1436. 


1430 


...0.68, A... 


21FA 


A 




JMP 


MOVL 


*N0* 


1437. 


1431 


06BR 


0200 


A 




RTS 






1438. 


1432 


06 8C 














1439. 


1433 


06BC 














1440. 


1434 


06 BC 






SR G : 








1441 . 


1435 


06BC 


2C2A 


B 




j SR 


SHEXYA 


; CHECK IF CHAR. 


1442. 


143 6 


06.80 


8034 


B 




LD ,. 


Of TBF.AO 


1 NO .GET TEMP ADDRESS.. 


1 443 . 


1437 


06BE 


2C35 


B 




JSR 


3CHARGA 


;CHECK IF PROTECTED* 


1444. 


14:3 o 




A 03 3 


8 




S T 






1 / / c 


1439 


06C0 


8410 


R 




LO 


1 t BUFEND 


;SAVE MODE IN AFL AG. 


1446. 


1440 


06C 1 


A41 8 


B 




ST 


1 , A FLAG 




1447. 


1441 


06C2 


F034 


R 




SKNE 


0 , TBFAD 


;CHECK IF NEW OR OLD BUFFER ADDRESS. 


1 448. 


1442 


06C3 


2102 


A 




JMP 


SRGL 


;DEFAUL T BUFFER. 


1449 . 


1443 


06C4 


8024 


B 




LD 


0, ENDBUF 


;SE T RANGE OF PROM TO 4K. 


1450. 


1444 


0 6C 5 


2101 


A 




JMP 


SRG1 0 




1451. 


1445 


06 C 6 






SRGL t 








1452. 


1446 


06C6 


8013 


R 




LO 


0,K511 


5SET BUFFER LENGTH TO 511. 


1453. 


1447 


06C7 






SRG10: 








1454. 


1448 


06 C 7 


AOIO 


B 




iT 


0 «8LFEND 




1455. 


1449 


06C8 


F412 


B 




SKNE 


1 , MFF 


;CHFCK IF 4K OR 2K PROMS. 


1456. 


1450 


06C9 


2106 


A 




JMP 


MM5203 




1457. 


1451 


06CA 


4C00 


A 




LI 


0,0 


;IS 4K &ROM ZERO BUFFER • 


1458. 
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1452 


06CB 








.PAGE 






1459. 


1453 


06C8 






SRGLL: 








1460. 


1454 


06CB 


8833 


B 




LD 


2 , 3UFFA0 


;F I LL TEMP SUFFER. 


1461. 


1455 


06CC 


2000 


A 






3ERCF 


; F I L L BUFFER • 


1462. 


1456 


06 CC 


8018 


B 




LD 


0, AFLAG 


;fix mode. 


1463. 


1457 


06 CE 


A010 


B 






0 » SLiFEND 




1464. 


1458 


06 CF 


250? 


A 




JMP 


3TTAA 


; PR I NT B ACK • 


1465. 


1459 


06 DO 






MM 52 03; 








1466. 


1460 


06 DO 


4CPF 


A 




Ll 


0,-1 


% MODE IS 2K PROM. 


1467. 


1461 


06D1 


21F9 


A 




JHP 


SRGLL 




1468. 


1462 


06 02 














1469. 


1463 


06D2 














1470. 


1464 


06C2 


0375 


A 


TT AA : 


. WORD 


TTA 




1471. 


1465 


06D3 














1472. 


1466 


06D3 














1473. 


1467 


06D3 






CKRG: 








1474. 


1468 


06D3 


F105 


A 




SKG 


0 , PROTEC 


5 CHECK IF PROTECTED. 


1475. 


1469 


06 04 


2101 


A 




J MP 


ERRG 


; PR OT EC TED ERROR. 


1476. 


1470 


0605 


0200 


A 




kTS 




;N0 RETURN. 


1477. 


1471 


0606 






JE RRG : 








1478. 


1472 


0606 


2C11 


B 




J SR. 


3MESSA 


; PR INT MESSAGE 


1479. 


1473 


06D7 


073 F 


A 




.WORD 


PROT 




1480. 


1474 


0608 


7000 


R 




J HP 


BST ART 




1481. 


1475 


Q6D9 














1482. 


1476 


06D9 


03FE 


A 


PROTEC: 


.WORD 


FENC-1 




1483. 


1477 


06DA 


04AD 


A 

M 


ERGF : 


• WORD 


2ERCF 




1484. 
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1478 


06DB 






. PAGfc 










1485. 


1479 


060B 
















1486. 


1480 


06DR 


2030 


A LST: 


•ASCII 


• 0 1 2 3 4 5 i 


> 7 8 


9 


A 3 C D E F* 


1487. 




06DC 


2031 


A 
















06DD 


2 032 


A 
















060E 


2033 


A 
















06DF 


2034 


A 
















Q6F0 


2035 


A 
















06F1 


2036 


A 
















06E2 


203 7 


A 
















06E3 


2038 


A 
















06E4 


2039 


A 
















06F5 


2041 


A 
















0 6E6 


2042 


A 
















06E7 


2043 


A 
















06F8 


2044 


A 
















06£9 


2045 


A 
















06EA 


2 046 


A 














1481 


06FB 
















1488. 


1482 


06EB 
















1489. 


1483 


06EP 




ALISTJ 












1490. 


1484 


06FB 


0325 


A 


.WORD 


GO 




G 


GO TO ********* 


1491. 


1485 


06. EC 


0589 


A 


.WORD 


DUP 




H 


READ FROM PROM TO MEMORY BUFFER. 


1492. 


148 6 


06E0 


04B6 


A 


.WORD 


I N'B IN 


; 


I 


READ COMLEMENTEO DATA TAPE. 


1493. 


1487 


06FE 


05AB 


A 


, WORD 


CR 


; 


J 


READ RLM CARDS. 


1494. 


148 8 


06 EF 


046C 


A 


• WORD 


B I H I M 


; 




READ TRUE PAPER TAPE* 


1495. 


1489 


06F0 


0632 


A 


.WORD 


PT 




1. 


READ Rt_** PAPER T6PE . 


1496. 


1490 


06F1 


06A0 


A 


• WORD 


MOVFF 


* 


M 


MCVE MEMORY. 


1497. 


1491 


06F2 


04F6 


A 


• WORD 


PNT APE 




M 


READ IN P/N PAPER TAPE. 


1498. 


1492 


06F3 


06BC 


A 


• WORD 


SRG 




0 


SET TEMP BUFFER ADDRESS* 


1499. 


1493 


06F4 


03FA 


A 


.WORD 


VP 




P 


VERIFY/PROGRAM PROM. 


1500. 


1 49 4 


G6F5 


Q 5.6. 0 


A 


.WORD 


PRCK 




Q 


PRINT CHECK SUM.. OF PROM. 


1501. 


1495 


06F6 


0495 


A 


.WORD 


PRE AD 




R 


LIST ROM. TYPE STARTING HEX ADR • 


1502. 


■t /. sn 


tjor i 


n -i a r- 


A 


a WORD 


O C ! IN 




S 




* r- /-\ i 


1497 


06F8 


0474 


A 


• WORD 


RLIST 


* 


T 


TYPE MEMORY LOCATIONS. 


1504. 


149 8 


06F9 


0304 


A 


.WORD 


SPACE 


: u 






1505. 


1499 


06FA 


054D 


A 


. WORD 


VARA 




V 


VERIFY MEMORY BUFFER TO PROM. 


1506. 


1500 


06FB 


04A8 


A 


.WORD 


ZRO 




w 


FILL TEMP BUFFER WITH HEX CHAR. 


1507. 


1501 


06FC 


0579 


A 


• WORD 


BCK 




X 


PRINT CHECK SUM OF BUFFER. 


1508. 


1502 


06F0 


03FC 


A 


• WORD 


PSTART 




Y 


PROGRAM PROM. 


1509. 


1503 


06FE 


03E2 


A 


.WORD 


ERASE 




Z 


CHECK IF PROM IS ERASED. 


1510. 
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1 504 


06FF 








.PAGE 




1511 • 


1505 


06 FF 


5 052 


A 


MS G : 


.ASCI I 


'PRESETS 1 


1512. 




070 0 


4D53 


A 












0 701 


4654 


A 












0702 


4220 


A 










1506 


070 3 


0000 


A 




. WORD 


0 


1513. 


15 07 


0704 












1514. 


1508 


0704 


COOA 


A 


kORK : 


• WORD 


ODOA 


1515. 


1509 


0705 


5052 


A 




.ASCII 


•PROGRAMMING. » 


1516. 




07 06 


4F47 


A 












Q7Q7 


5241 


A 












0708 


4D4D 


A 












0709 


494F 


A 












£70 A 


4726 


A 












070B 


2 02 0 


A 










1510 


07 0C 


0000 


A 




• WORD 


0 


1517. 


1511 


070D 












1518. 


1512 


0700 












1519. 


1513 


07or? 






DONE: 






1520. 


1514 


070D 


5645 


A 




.ASCII 


'VERIFING.» 


1521. 




070F 


5249 


a 












070F 


4649 


A. 












0710 


4E47 


A 












0 711 


2E20 


A 










1515 


0712 


0000 


A 




.WORD 


0 


1522. 
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I Jlo 


0711 

U 1 1 3 








« PAGE 




1 5 2 3 - 


15 17 
i j i i 


0711 

W f 1 J 


7 0 50 




PA D : 


- ASC 1 1 


1 PROM AT ADDRFSS • 


1524 . 




071 4 


5 74F 


A 












071 5 


407 0 

*t UC KJ 














071ft 


4 1 *54 


A 












0717 
Jill 


? 04 1 


A 

M 












07 1 ft 


4444 


A 












07 1 Q 


^74 5 


A 












07 1 A 

u # J. #* 




A 

M 












071 ft 


7070 

C U VJ 


A 

M 










4. J l.O 


07 1 r 

. .Mil V»... 


000 0 


A 




- WHR 0 


KJ ... 


1575- 


I J J. T 


07 1 n 

'J 1 L U 












X \J # 


i ?o 


0 710 


7 047 




R A OP : 


- as r T T 


» R AD» 

U HU 


1 5 77 - 




07 IF 


4144 


A 










1 5? 1 


0 7 1 F 


rooo 

v. uu u 


A 






n 


1 57ft - 


1 57? 

i. J C. C, 


07 70 












1529. 


1 571 

A. -J <£. -3 


07? 0 












l 530* 


1 *i?4 


077 0 


rno a 


A 


ri a T A TO : 


- WORD 


000 A 

W 5./ v/ ** 


1511- 

L J J L * 


1 575 


0 771 


4T4 F 


A 




ASCII 


» 1 n AO T A PF - * 


1 51? - 




0 77 7 


4144 


A 












0771 


70*S4 


A 












07 74 


4 1 50 


A 

*-* 












0775 


457F 


A 










1 526 


0726 


cooo 


A 




• WORD 


o 


1533- 


1577 

A xi. # 


07 7 7 












1 5 34 - 




077 7 












1515- 


152 9 


0727 






FIT : 






1 536. 


1510 


0 72 7 


2 Q48 


A 




. AS C 1 1 


• HIT SPACE WHEN R c ADY . * 


1537 - 




07?ft 

« .1 CV. 


4954 

.. ...71. .3-*?...TT.... 


A 












0779 


7 05 1 


A 












07 7 A 


5041 


A 












07 7ft 


4 34*5 


A 












0 7?f 


7057 


A 












07 2D 


4845 


A 












D72E 


4E2 0 


A 












072F 


5245 


A 












0730 


4144 


A 












0731 


592E 


A 










1531 


0732 


(1000 


A 




• WORD 


0 


1 r~ o 
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153? 


0733 






.PAGE 




1539. 


1533 


0733 










1540 . 


1 534 


0733 


4E4F 


A 


NDVER: .ASCII 


•NOT CORRECT TRY ^GA IN» 9 


1541. 




0734 


542G 


A 










0735 


434F 


A 










0736 


5252 


A 










073 7 


4543 


A 










0.13.8 


5420 


A 










0739 


545? 


A 










073 A 


5920 


A 










073B 


4147 


A 










073C 


4149 


A 










0730 


4E2E 


A 








I 53 5 


073E 


0000 


A 


.WORD 


0 


1542. 


1536 


073P 










1543. 


153 7 


073F 


000 A 


A 


PROT : .WORD 


00 OA 


1 544. 


153 8 


0740 


5052 


A 


.ASCII 


* PROTECTED.* 


1545. 




0741 


4F54 


A 










0742 


4543 


A 










0 743 


5445 


A 










0744 


442E 


A 








1539 


0745 


cooo 


A 




0 


1546. 


1540 


074.6 


-4147 


A 


PAGAIN: * A S C X ! 


1 AGAIN* 1 


1547. 




0747 


4149 


A 










0748 


4F?E 


A 








45-41 


,.y._i.*t„?a.. 


COOO 


A 


, ,. ,, . « WQ.R Q 


0 


1548. 


1542 


074A 










1549. 


1543 


074 A 










1550. 


1544 


074 A 


4649 


A 


ST ARIA: * ASCI I 


'FIRST ADDRESS = 1 


1551* 




0746 


5253 


A 










074C 


5420 


A 










.074 0 . 


.4.144 


..A 










Q74F 


4452 


A 










074F 


455 3 


A 










0750 


5320 


A 










0751 


?0?0 


A 








1545 


0752 


0000 


A 


.&QRD 


0 


1552. 
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1546 


0753 






.PAGE 






1553. 


1547 


0753 












1554. 


1548 


0753 


4953 


A 


IS: .ASCII 


1 I S 1 




1555. 




0754 


2020 


A 










1549 


0 75 5 


0000 


A 


• WORD 


0 




1556. 


1550 


0756 












1557. 


1551 


0756 


2053 


A 


SB: .ASCII 


* SB • 




1558. 




0757 


422X3 












155? 


0758 


0000 


A 


.WORD 


0 




1559. 


155 3 


0759 












1560. 


1554 


0759 


CQjQA 


A 


BAOT APE: .WORD 


09 OA 




1561. 


1555 


075A 


502F 


A 


.ASCII 


»P/N TAPE 


BAD. * 


1562. 




075B 


4F20 


A 












Q75C 


.5441..., 


A.. 












0750 


5045 


A 












075E 


2 042 


A 












Q75F 


4144 


A. 












0760 


2E20 


A 










1556 


076 1 


0000 


A 


• WORD 


0 




1563. 


1557 


0762 












1564. 


1558 


0762 


502F 


A 


PDONE : -ASCII 


* P/N TAPE 


DONE. * 


1565. 




0763 


4F2 0 


A 












0764 


544.1 


A 












0765 


5045 


A 












0766 


2 044 


A 












0767 


4F4£ 


A 












0768 


452F 


A 










1559 


0769 


0000 


A 


.WORD 


0 




1566. 
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1 560 


076A 








. PAGE 




1567. 


1561 


076A 












1568. 


1562 


0 76 A 


2 043 


A 




• ASCI I 


1 CCRRFC T .» 


1569. 




0768 


4F52 


A 












076C 


5245 


A 












076D 


4354 


A 












076E 


2E20 


A 










1563 


076F 


0000 


A 




.&QRD 


0 


1570. 


1564 


0770 












1571. 


1565 


077C 












1572. 


1 5 66 


0770 


ODQA 


A 


LDRGM : 


-WORD 


ODOA 


1573. 


1567 


0771 


5055 


A 




. AS CI I 


* PUT pRO w IN SOCKET* 1 


1574. 




0772 


5420 


A 












07 73 


5052 


A 












0774 


4F4D 


A 












0775 


2049 


A 












0776 


4F20 


A 












0777 


534F 


A 












0778 


434B 


A 












0779 


4554 


A 












077A 


2E2 0 


A 










1568 


0778 


0000 


A 




• WORD 


0 


1575. 


1569 


077C 












1576. 


1570 


077C 












1577. 


1571 


077C 


000 A 


A 


NGTFR : 


*WORD 


odoa 


1578. 


1572 


0770 












1579. 


1573 


0770 


4E4F 


A 




• ASCII 


1 NOT ERASED AT ADDRESS ' 


1580. 




077E 


5420 


A 












G77F 


4552 


A 












0780 


4153 


A 












0781 


4544 


A 












07-82 


2 041 


A 












0783 


5420 


A 












0784 


4144 


A 












0785 


4452 


A 












0786 


4553 


A 












0787 


5320 


A 










15 74 


0788 


0000 


A 




.WORD 


0 


1581. 
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1 575 


0789 






• PAGE 




1582. 


15 76 


0789 










1583. 


15 77 


0789 


000A 


A 


NQW4K: .WORD 


000 A 


1584. 


1578 

i V 1 u 


078 A 


404D 


A 


• ASC 1 1 


• HM5204. 1 


1535. 




078B 


3 532 


A 










078C 


3034 


A 










0780 


2F20 


A 








1 579 


078E 


0000 


A 


. .WORD 


0 


1586. 


15 80 


07 8 F 










1587. 


1581 


07 8 F 










1588. 


1582 


078F 






N.QW2K: 




1589. 


1583 


078F 


2040 


A 


-ASCI! 


» MN!5203.» 


1590. 




0790 


4035 


A 










0791 


323 0 


A 










0792 


332E 


A 








1584 


0793 


0000 


A 


. WORD 


0 


1591. 


1 585 


0794 










1592. 


1586 


0794 










1593. 


15 8 7 


0794 


000 A 


A 


VOON : .WORD 


ODOA 


1 594. 


1 588 


0 795 


444E 


A 


.ASCI I 


•DONE. ' 


1595. 




0796 


4E45 


A 










0797 


2E20 


A 








1589 


079 8 


0DGA 


A. 


-WORD 


000 A ,0 


1596. 




0799 


0000 


A 








159 0 


079A 










1597. 


1591 


079 A 


2054. 


.A, 


STY: . ... . .ASCII 


* TYPE 2 ICR]. * 


1598. 




079B 


5950 


A 










079C 


4520 


A 










Q79D 


3220 


A 










079E 


2843 


A 










079F 


5229 


A 










07AH 


2 £2-Q 


A 








1 592 


07 A 1 


0D0A 


A 


• WORD 


ODOft 


1599. 


1593 


07A2 


0000 


A 


• VfORO 


0 




1594 


07 A3 










1601 • 


159 5 


0 7 A 3 


2054 


A 


BTY4: .ASCII 


• TYPE 4 ICR).' 


1602. 




07 A4 


5950 


A 










0 7A5 


4520 


A 










07A6 


3420 


A 










0 7A7 


2843 


A 










07A8 


5229 


A 










07A9 


2F20 


A 








1596 


07AA 


0000 


A 


.WORD 


0 


1603. 
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1597 


07AB 






159 8 


07 AB 






1599 


07AB 


000 A 


A LOR: 


1600 


07 AC 


2020 


A 




07 AC 


4C45 


A 




0 7 A E 


4654 


A 




07AF 


2 042 


A 




07 BO 


5954 


A 




07R1 


4520 


A 




0782 


5459 


A 




07 B 3 


5045 


A 




07B4 


2 04C 


A 




07B5 


2028 


A 




0 7B6 


4352 


A . 




07B7 


292E 


A 


1601 


07R8 






1602 


07 B B 


2020 


A 




07B9 


5249 


A 




07BA 


4748 


A 




Q7RA 


5420. 


A 




078C 


4259 


A 




07BD 


5445 


A 




07RE 


2054 


A 




07BF 


5950 


A 




07C0 


452 0 


A 




07C1 


522 0 


A 




07C2 


2843 


A 




07C3 


5229 


A 




07C4 


2E20 


A 


1603 


0 7C5 


ODOA 


A 




07C6 


0000 


A 


L604 


07 CZ. 






1 605 


07C7 


4348 


A CKER 




07C 8 


4 543 


A 




07C9 


4820 


A 




07f A 


5 355 


A 




0 7f B 


4D20 


A 




0 7OC 


4552 


A 




07CD 


524F 


A 




07CE 


522E 


A 


1606 


07CF 


ODOA 


A 


1607 


0700 


5452 


A 




07D1 


5920 


A 




07D2 


4147 


A 




0703 


4 149 


A 




07D4 


4E3F 


A 




0705 


2059 


A 




0706 


204F 


A 




07D7 


522 0 


A 




-07-08 


4E2E. 


A 


1608 


0709 


onoA 


A 




07DA 


0000 


A 



• PAGE 

•WORD ODOA 

•ASCII • LEFT 8YTE TYPE L (CR).* 



1604. 
1605, 
1606. 
1607. 



•ASCII • RIGHT BYTE TYPE R 4CR).' 



1608. 
1609. 



WORD ODOA.O 



ASCII * CHECK SUM ERROR* 1 



1610. 

1611. 
1612. 



.WORD ODOA 

• ASCII ' TRY AGAIN? Y OR N . 1 



1613. 
1614. 



*URD 3D0£,0 



1615. 
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160 9 


070B 








• PAGE 






1616. 


16 10 


0 70B 














1617. 


1611 


07DB 














1618. 


1612 


070B 


ODOA 


A 


VERF : 


..WORD 


ODOA 




1619. 


1613 


0 70C 


5645 


A 




• ASCI I 


•VERIFY TAPE? 


Y OR N 1 


1620. 




07DD 


5249 


A 














070E 


4659 


A 














07 OF 


2054 


A 














07E0 


4150 


A 














07E 1 


453F 


A 














Q7E2 


2Q59 


A 














07E3 


204F 


A 














0 7E4 


5220 


A 














07 £5 


4E2G 


A 












1614 


07E6 


ODOA 


A 




• WORD 


ODOAtO 




1621. 




07E7 


0000 


A 












161 5 
















1622. 


1616 


07F8 














1623. 


1617 


07F8 






VFFR : 








1624. 


1618 


Q7E8 


2 043 


A 




• ASCI 1 


» CKS M = * 




1625. 




07E9 


4853 


A 














07FA 


4D2 0 


A 














07EB 


3D 20 


A 












1619 


07EC 


0000 


A 




• WORD 


0 




1626. 


162 0 


07ED 














162 7. 


1621 


Q7ED 














1628. 


162? 


07E0 






UL : 








1629. 


1623 


07ED 


2055 


A 




•ASCII 


• UPPER 256 U 


ten) » 


1630. 




07EE 


5 05 0 


A 














07EF 


4552 


A 














07FO 


2032 


A 














0.7 FX 


353A 


A 














07F2 


2055 


A 














0 7 F3 


2028 


A 














Ql £ A 


435? 


A 














07F5 


2 92 0 


A 












1624 


07F6 














1631. 


162 5 


0 7F6 


2 04C 


A 




• ASCI I 


* LCWER 256 L 


ICR) * 


1632. 




07F7 


4F57 


A 














07F8 


4552 


A 














07F9 


2032 


A 














07F A 


3536 


A 














07FB 


204C 


A 














07FC 


2028 


A 














07FD 


4352 


A 














07FE 


2920 


A 












1626 


07FF 


ODOA 


A 




• WORD 


OQOA.O 




1633. 




0800 


0000 


A 
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162 7 


08 01 








-PAGE 




1634. 


162 8 


0801 












1 635. 


1629 


080 1 


OD0 4 


A 


FR F: 


• WORD 


0D0 A 


1636. 


1630 


0802 


5920 


A 




„ASCI I 


iy OR N* 


1637. 




0803 


4F52 


A 












0804 


204F 


A 










1631 


0805 


0D0A 


A 




• wQR D 


0 D 0 A 1 0 


1638. 




0806 


0.000 


A 










1632 


0807 












1639. 


1633 


0807 


0DOA 


A 


CR R L : 


.WORD 


ODOA 


1640. 


1634 


Q 808 


404 1 


A 




* ASCI I 


'MAKE CR READY* 1 


16 41. 




0809 


4 84 5 


A 












080A 


2 043 


A 












08GB 


5220 


A 












08 0C 


5245 


A 












0800 


4144 


A 












G8QE 


592 E 


A 










163 5 


080F 


0000 


A 




• WORD 


0 


1642. 


1636 


08 10 












1643. 


163 7 


0810 


000A 


A 


IN VAL : 


• WORD 


ODOA 


1644. 


1638 


0811 


494E 


A 




.ASC I I 


* INVALID CHAR. 1 


1645. 




0812 


5641 


A 












0813 


4C49 


A 












0814 


442 0 


A 












0815 


4 34 8 


A 












0816 


4152 


A 












081 7 


2 £20 


A 










1639 


0818 


0000 


A 




. WORD 


0 


1 646. 


1640 


0819 












1647* 


1641 


08 19 


0D0A 


A 


I S : 


• WORD 


ODOA 


1 648. 


1642 


081 A 


5452 


A 




• ASC 1 1 


'TRANSMISSION ERROR. » 


1 64° - 




OR 1 R 


4 1 4F 


A 












08 If 

w U i u 


5^40 


A 












* r\ 


*4 Q £| ~* 


A 












OR IF 


5 ^4<3 


A 

** 












081F 


4F4F 


A 












0820 


2045 


A 












0821 


5252 


A 












0822 


4F52 


A 

M 












0823 


2F20 


A 














0000 


A 




• WORD 


0 


1650. 
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1644 


0825 






. PAGE 








Iu51 • 


1645 


0825 




T8L : 










1652 . 


1646 


0825 


02 00 


A 


. WORD 


020G 


• 




1653, 


1647 


0826 


0100 


A 


• WORD 


0100 




1 , 


1654. 


164 £ 


0827 


0080 


A 


• WORD 


0080 




2 • 


1655. 


1649 


0828 


0040 


A 


• WORD 


0040 


• 


3 • 


1656- 


1 650 


0829 


0020 


A 


• WORD 


0020 


t 


4 • 


1 657* 


1651 


082 A 


001 0 


.A.. 


• WORD 


0010 




5 » . .. 


1653. 


1652 


082B 


0008 


A 


* WORD 


0G08 


• 
* 


6 • 


1659- 


1653 


082C 


0004 


A 


m WORD 


0004 




7 . 


1660. 


1654 


0820 


0002 


A 


• WORD 


0002 




8 • 


1661 . 


1655 


0826 


0001 


A 


. WO R D 


0001 




9.. 


1662 • 


1656 


082F 


0900 


A 


• WORD 


090 0 


• 

■» 


A • 


1663. 


1657 


0830 


0880 


A 


• WORD 


0880 


• 


8. 


1664. 


1658 


0831 


0840 


A 


• WORD 


0840 




C. 


1665. 


1659 


0832 


0820 


A 


-WORD 


082 0 


• 


D. 


1666. 


1660 


0 833 


0810 


A 


• WORD 


0810 


m 


E. 


1667. 


1661 


0834 


0808 


A 


• WORD 


0808 




F. 


1668, 
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1662 


0835 








• PAGE 






1669. 


1663 


0835 














1670. 


1664 


0 835 


FFF5 


A 


DELAY 




0FFF5 




1671. 


1665 


0835 


FFF6 


A 


OF LA Yl 




0FFF6 




1672. 


1666 


0835 


FFFB 


A 


TTYSR 




OFFFB 




1673. 


1667 


0835 






: OSCILLATOR. 






1674. 


1668 


0835 














1675. 


1669 


0835 














1676. 


1670 


0835 


0029 


A 


TA 


_ 


41 




1677. 


1671 


0835 


0009 


A 


EA 




9 




1678. 


1672 


0835 


0016 


A 


EB 


_ 


22 




1679. 


16 73 


0835 


0026 


A 


EC 




38 




1680. 


1674 


0835 


0038 


A 


TTYAO 




7*8 




1681. 


1675 


0835 














1682. 


1676 


0835 














1683. 


1677 


0835 






* 


KIN 


2 


= READ A BIT FROM TTY. 


1684. 


1678 


0835 






* 


aiN 


4 


= TURN ON READER RFL AY * 


1685. 


1679 


0835 






« 


ii IN 


5 


= RESET. 


1686. 


1680 


0835 






* 


KIN 


6 


= SET BIT 7 IF INTERRUPT REO. 


1687. 


1681 


0835 














1688. 


1682 


0835 






J 


ROUT 


1 


= TURN ON INTERRUPT ENABLE, 


1689. 


1683 


0835 






* 


kOUT 


3 


= SEND A BIT TO TTY. 


1690. 


16 84 


0835 






* 

. . . » 


. ROUT 


4 


= TURN ON READER RELAY * 


1691. 


16 85 


0835 






* 


KOUT 


5 


= RESET. 


1692. 
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1686 


0835 








• PAGE 




1693. 


1687 


0 g3 5 






• 


IELEIYP 


E TRANSMIT CHARACTER ROUTINE FOR IMP - 161* 


1694. 


1688 


083 5 












1695. 


1689 


0835 


291 E 


A 


LPUTC: 


JSR 


SAVER 


1696. 


1690 


083 6 


3181 


A 




RCPY 


0,1 


1697. 


1691 


0837 


4C30 


A 




4. I 


0,X*30 


1698. 


169 2 


0 83 fi 


03 F 6 


A 




JSRI 


DEL AY 1 


1699. 


1693 


0839 


4 EG 9 


„A.. 




4_1 . 


2*9 


17Q0. 


1694 


083A 


4F38 


A 




L I 


3t TTYAD 


1701 . 


1695 


083B 


0603 


A 




ROUT 


3 


1702. 


1&96 


083C 


03F5 


A 


LP l : 


JSR I 


DELAY 


1703. 


1697 


0830 


5829 


A 




kOL 


0 t T A 


1704. 


1698 


083E 


4AFF 


A 




A ISZ 


2,-1 


1705. 


-1699 


083F 


2101 


A 




jMP ... . 


*+2 


1706. 


170 0 


0840 


2104 


A 




JMP 


000 N 


1707. 


1701 


0841 


59FF 


A 




ROR 


1 f 1 


1708. 


1702 


0842 


3481 


A 




KCPY 


1,0 


1709. 


1703 


0843 


0603 


A 




ROUT 


3 


1710* 


1704 


0844 


21F7 


A 




J HP 


LP 1 


1711. 


1-Z05 


0845 


4 CFF 


. A 


CD Oh : . . 


i_ I 


0,-1 . ...... 


1712. 


1706 


0846 


0603 


A 




ROUT 


3 


1713. 


1707 


0847 


2118 


A 




JMP 


RETPR 


1714. 


... 1708 


0848 












1715. 


1709 


0848 












1716. 


1710 


0848 












1717. 


.._ 17JLX 


Q8.4.8 


29JQB 


A 


PPUTC: 


JSR... . . 


SAVER . ............... 


171 a 


1712 


0849 


2001 


A 




JSR 3 


PPUTCA 


1719. 


1713 


084A 


2115 


A 




JMP 


RETPR 


1720. 


1714 


Q84B 












1721, 


1715 


0848 


7E59 


A 


PPUTCA: 


* WORD 


07E59 


1722. 
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1716 


0 84C 








• PA GE 






1723. 


1717 


084C 






• 
« 


oET character routine 


PGR IMP - 16P. 


1724. 


1718 


084C 














1725. 


1719 


084C 


2907 


A 


PG ETC: 


JSR 


S^VER 




1726. 


172 0 


0840 


2D02 


A 




JSR 


3 PGETCA 




1727. 


1721 


084F 


A02C 


8 




i>T 


O.RO 




1726. 


1722 


084F 


2110 


A 




JMP 


RETRR 




1729. 


1723 


0850 














1730. 


1724 


0850 


7E3B 


A 


PGETCA: 


.WORQ 


07E3B 




1731. 


1725 


0851 














1732. 


1726 


085 1 






* 


GET CHARACTER ROUTINE 


FOR I*P-16L. 


1733. 


1727 


0851 






LGFTC: 








1734. 


172 8 


0851 


2902 


A 




JSR 


SAVER 




1735. 


1729 


0852 


C-3t B 


A 




JSR I 


TTYSR 




1736. 


1730 


0853 


21FA 


A 




jMP 


PGETC+2 




1737. 


1731 


0854 














1738. 


1732 


0854 






SAVER: 








1739. 


1733 


0854 


A02C 


8 




ST 


O.RO 


5 SAVE RO* 


1740. 


1734 


0855 


A420 


R 




ST 


1,R1 


: SAVE RO. 


1741. 


1735 


0856 


AS 2 E 


B 




ST 


2*R2 


JSAVE R2. 


1742. 


1736 


0857 


AC2F 


B 




ST 


3,R3 


;SAVE R3. 


1743. 


1737 


0858 


0080 


A 




PUSHF 






1744. 


1738 


0859 


4400 


A 




PULL 


0 




1745. 


1739 


085A 


A 030 


B 




ST 


0, S^LGS 




1746. 


1740 


085B 


4G01 


A 




Li 


0, 1 




1747. 


17-41 


QB5C 


5 8EF . 


A 




ROR 


0,17 




1748. 


1742 


0850 


A03i 


B 




ST 


0, SAVS C L 




1749. 


1743 


085E 


B02C 


B 




LO 


O.RO 




1750. 


1744 


085F 


0200 


A 




RTS 




;RETURN . 


1751. 


1745 


0860 














1752. 


1746 


0860 














1753. 


1747 


.0860 














1754. 


1748 


0860 






RETRR: 








1755. 


1749 


0860 


842D 


a 




j n 


1 D 1 
A f A 


; RE STORE Ri. 


1 756* 


1750 


0861 


882.E. 


_B. 




lb. . 


2 #R2 


;RESTOR£ R2. 


1757. 


1751 


0862 


8C2F 


B 




LD 


3.R3 


; RESTORE R3. 


1758. 


1752 


0863 


8030 


B 




LO 


0,SFLGS 




1759. 


1 753 


0864 




A 




PUSH 


0 




1760. 


1754 


0865 


0280 


A 




PULLF 






1761. 


1755 


0866 


8031 


B 




LO 


0, SAVSEL 




1762. 


17 56 


0867 


7130 


A 




^»KAZ 


O.ITEST+7 




1763. 


1757 


0868 


0A00 


A 




5FLG 


2 




1764. 


1758 


0 86 c > 


802C 


R 




i.0 


Of RO 


;RESTORE RO. 


1765. 


1759 


QS6A 


0200 


A 








; RETURN 


1766. 
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176 0 


086B 








• PAGE 






1767* 


1761 


0866 






• 
* 


GET CHARACTER AND ECHO ROUTINE 




1766. 


1 762 


0868 














1 7 69 . 


1763 


086E 


29E8 


A 


LGECO: 


JSR 


SAVER 




1770. 


1764 


0 86C 


4F38 


A 




L I 


3,TTYA0 




1771. 


1 76 5 


086C 


0A80 


A 




^FLG 


2 




1772. 


1 766 


086E 


0605 


A 




ROUT 


5 




1773. 


1767 


Q86F 


4EQ8 


A 




LI 


2.8 




1774. 


1 768 


0870 


0604 


A 




ROUT 


4 




1775. 


176 9 


0871 


0402 


A 




RIN 


2 




1776. 


1720 


.0872 


1201 


A 




oOC 


2 ,.+2 




1777. 


1771 


0873 


21FD 


A 




JHP 


.-2 




1778 . 


1772 


08 74 


4C09 


A 




L I 


0,EA 




1779. 


1773 


0875 


03F6 


A 




jSR I 


DELAY1 




1780. 


1774 


0876 


58EA 


A 




ROR 


0* E8 




1781. 


1775 


0877 


0402 


A 




k IN 


2 




1782. 


1776 


08 7 8 


1201 


A 




bOC 


2, .4-2 




1783. 


1777 


0879 


21F4 


A 




J MP 


LGECC+3 




1784. 


1 778 


087A 


0603 


A 


LP3 : 


ROUT 


3 




1785. 


1779 


087B 


03F5 


A 




JSR I 


DELAY 




1786. 


1780 


087C 


5826 


A 




ROL 


0 f EC 




1787. 


1781 


0870 


0402 


A 




kIN 


2 




1 788. 


1782 


O S IE 


6100 


A 




AMD 


O.MASK 




1789. 


1783 


087F 


50FF 


A 




SHR 


1,1 




1790. 


1 784 


0880 


3182 


A 




RXOR 


0, 1 




1791. 


1785 


0881 


4AEE 


A 




AISZ 


2,-1 




1792 . 


17 86 


088? 


2 IF 7 


A 




j MP 


LP3 




1793. 


1787 


0883 


0603 


A 




ROUT 


3 




1794. 


1788 


0884 


Q3F5 


A 




J SR I 


DELAY 




1795. 


1789 


0885 


4CFF 


A 




L I 


0,-1 




1796. 


179 0 


0886 


0603 


A 




ROUT 


3 




1797. 


1791 


oaax 


C3F5 


A 




JSR I 


DELAY 




1798. 


1792 


088 8 


0605 






ROUT 


5 




1799. 


1793 


nooc 


cnco 






d HR 


1,8 




1 800. 


XI94 


Q.B&A 


34B1 


A 




r c p y 


1,0 




1801. 


1795 


08 8 B 


21C2 


A 




*iMP 


PGETC+2 




1802. 


1796 


088C 














1803. 


1797 


088C 


8000 


A 


MASK : 


• HQRO 


X«800Q 




1304. 
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1798 


0880 








• PAGE 




1805. 


1799 


0.88.0 












1 806 • 


1800 


088D 


29C6 


A 


PGECQ: 


JSR 


SAVER 


1807. 


1801 


088E 


2001 


A 




jsrs 


PGECGA 


1808. 


1802 


088 F 


218E 


A 




J MP 


PGETC+2 


1809. 


1803 


0890 












1810. 


1804 


0890 


7E73 


A 


PGECOA: 


.WORD 


07E73 


1811. 


1805 


0891 












1812. 


1806 


0891 












1813. 


1807 


0891 












1814. 


1808 


0891 






• 


TELETYPE 


i INPUT TES T 


1815. 


1 809 


089 1 












1 816. 


1810 


0891 






• 


kTS 1 - 


NORMAL RETURN 


1817. 


1811 


0891 






• 


KTS 0 - 


ATTEMPT TG INPUT 


1318. 


1812 


0891 












1819. 


1813 


0891 


29C2 


A 


IT EST: 


JSR 


SAVER 


1820. 


1814 


0 892 


4F00 


A 




L I 


3*0 


1821. 


1815 


0893 


0406 


A 




aiN 


6 


1822. 


1816 


0894 


5C08 


A 




SHL 


0,8 


1823. 


1817 


0895 


1201 


A 




dOC 


2 # • +2 


1824. 


1818 


0896 


21C9 


A 




JMP 


RETRR 


1825. 


1819 


0897 


29C8 


A 




JSR 


RETRR 


1826. 


1820 


0898 


0201 


A 




R TS 


1 


182 7. 
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1871 

X W C- X 


089 9 








.PAGE 




.18 28 • 


\ R?? 


0899 












1829- 


1 ft?3 


089 9 






» 


TELETYPE SYSTEM INITIAL I Z. ATI CN/ RESET 


1830. 


1 ft?4 


0899 












1831. 




08^9 


001ft 


A 






018 


183? . 


1 ft? 6 


0899 


0760 


A 


f f PAH : 


• W 0RD 


07 6 0 


1 833 - 


1 ft?7 


0fl9 A 

U U 7 H 












1 834 - 


1 ft? ft 


Oft 9 A 


P QRQ 


A 


^FTPt : 


*iSR 


SAVER 


1835- 


1 8?9 

A *J j£_ ~ 


0898 


ftOFD 


A 




L0 


3#CCPAD 


1836- 


A O J \J 


089C 


041 8 


A 




RIM 


GPCS 


183 7. 


1 83 1 


0890 


4801 


A 




AISZ 


0*1 


1838. 


183? 


089^ 


2103 






J MP 


L IN IT 


1839. 


1 83 3 


089F 


4F38 


A 


RST : 


LI 


3* TTYA0 


1 840. 


1 834 

- .,X-*J ^J-^w 


05 AO 




A 




&0UT 


5 


1841. 


1 83 5 


08A1 


?1BE 


A 




J MP 


RET PR 


1842. 


1 836 


Q£A? 












1843* 


183 7 


08A2 












1 844. 


1 ft^ft 


08A? 


8108 


A 




L0 


0» LPUTCA 


1845- 


1 83 9 


08A3 


A 000 


R 




ST 


0* °UTC 


1846. 


1 840 


08A4 


810Z- 


JL 




LD 


0 1 LGETC A 


1847. 

J. W T 1 * 


1841 


08A5 

\J \J r~\ 


A00E 


B 




ST 


0,GETC 


1848. 


1 84? 


08A6 

\J \J- f*% V 


8106 


A 




LD 


0* LGEC0A 


1849. 


1843 


08 A 7 


AOOF 


8 




ST 


Of GEC0 


1850 - 


1844 


08A8 

V/ *J " 


8105 


A 




i.D 


0 * LREDCR 


1851. 

X w ^ X • 


1845 


08A9 


A03? 


R 




ST 


0 ,RFDCR 


1852. 


1B.4& 


GB.AA 


21£4 A. 




J. MP 


RST. . .. _ 


1853. 


1 847 


08 AS 

V U H u 












1854. 


1848 


08 A B 


0835 


A 


LP UTCA ; 


. WORD 


LPUTC 


1855. 


1 849 


08AC 


0851 


A. 


L GFTCA : 


.WORD 


LGETC _ 


1 856. 


1850 


08AC 


C86B 


A 


LGFC0A: 


.WORD 


LGECC 


1857. 


1851 


08AF 


059A 


A 


LR EOCR: 


.WORD 


REDCRL 


1858. 


1 852 


Q.8AF 












1859. 


1853 


08AF 


08FF 


A 


CPUFF: 


. *" 


. + 80 


1860. 


1854 


08FF 


08FF 


A 


FEND: 


m ~ 


* 


1 861 . 


1855 


0.8 F F 


ocoo 


A. 


TBUF 




OCOO 


1862. 
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AGO 




AC I 




AC 2 


AC 3 


A DAG 




ADC1 




ADHSK 




AFLAG 


AGAIN 


AGO 




ooia 


B 


0Q1C 


B 


Q01D B 


001E d 


0568 


A 


0565 


A 


0037 


B 


0018 B 


0401 


A 


04QE 


A 


AGGO 




AL 1ST 




ALMOD 


ALPH 


A NOCR 




AMCL 




ANDPT 


ANDS 


AN GO 




ARR 




0411 


A 


06EB 


A 


033F A 


0335 A 


05BE 


A 


0617 


A 


0685 


A 


0618 A 


04DD 


A 


0597 


A 


A ST APT 


ASTR 




ATBL 


AVAR 


BAOCK 


B ADD 




8A0P 




BAOTAP 


BAR 




8ARR 




0&.0.A 


A 


06 07 


A 


0606 A 


054C k 


062C 


A 


0622 


A 


0710 


A 


0759 A 


0390 


A 


039 A 


A 


BCK 




BCKIP 


SELL 


BELLI 


BFIN 




8 ININ 


BIT1 




BL 


BOCC 




B ST ART 


Q579 


A 


05 7 F 


A 


03 A2 A 


03A3 A 


04E2 


A 


04BC 


A 


0004 


A 


0478 A 


0448 


A 


0000 


B 


BTY 




8TY4 




8UFEND 


BUFFAu 


BUL 




C BUFF 


CCPAD 


CHARGA 


CKER 




CKRG 




07 9 A 


A. 


07A3 


A 


0010 B 


0033 o 


047F 


A 


08AF 


A 


0899 


A 


0035 B 


07C7 


A 


06D3 


A 


CKSM 




COMP 




CPAO 


CR 


CRAO 




CR8UF 


CRCKSM 


CROATA 


CRER 




CRLF 




061C 


A 


04BA 


A 


0464 A 


05AB A 


0010 


A 


06 04 


A 


05CC 


A 


05B9 A 


05A5 


A 


0351 


A 


CRLFA 


CRR 




CRRL 


CRRLM 


CRST 




CYCV 




DAD 




DATA 


D ATA IC 


DCOMP 


0027 


B 


0340 


A 


OB 07, A 


0.5B3 k 


05C5 


A 


OOOA 


A 


0587 


A 


QQOF. A 


0720 


A 


04C8 


A 


DCOMPl 


onoN 




DEL AY 


DELAY 1 


DONE 




DUMB 




DUP 




DUPED 


E A 




E8 




Q4JQ£ 


A 


0845 _ 


A. 


5FE5. A 


FEF6 a 


0700 


A 


0645 


A 


. 0589 .. 


A 


058F A. 


_QQ09 


A 


3 016. 


A 


EC 




ENCBUF 


ENCCK 


ENDNQw 


ENORC 




ERAS 




ERASE 


ERF 


ERGF 




ERRG 




00,2 6 


A 

M , 


.002.4 


a 

u. .. 


.05 DB A 


.03 9. B k . 


0696 


A 

M 


0.3.E5 


<-\ 


03E2 




08.01 A 


06. DA ... 


A 


0606 „ 


A 


ERROR 


ESC 




FTBL 


EVER 


FEND 




FF IN 




FIN 




FINA 


FIRAO 


PIX 




03 CE 


A 


0341 


A 


0608 A 


.03 F4 A 


08FF 


A 


0596 


A 


04E8 


A 


0507 A 


0038 


B 


032E 


A 


FIXL 




FLAG 




FN I 


FREAO 


FRSTP 




FWC 




GECO 




GET 


GETC 




GO 




069E 


A 


0017. 


B 


04EA A 


0.53 F. 4 


068C 


A 


0544 


A 


0.00F 


B 


0329 A 


QQOE 


B 


0325.. 


A 


GOO 




GOON 






GT Fu 


HCO 




HE X 




HE XV 




H F X ¥ A 


HI CKSM 


HIT 




0446 


A 


0537 


A 


0018 A 


0002 a 


0605 


A 


0330 


a 


031C 


A 


00?A B 


0039 


B 


0727 


A 


IHEX 




I N B I N 


IN ERR 


I NT ESI 


I NV AL 




INYN 




INYN2 


INYN A 


IS 




I TEST 


03 IF 


A 


Q4B6 


A 


0619 A 


oooc a 


0810 


A 


0508 


A 


050A 


A 


0631 A 


0753 


A 


0891 


A 


K30 




K39 




K3FFF 


K4 


K40 




K46 




K47 




K511 


K5A 




K7F 




033B 


A 


033A 


A 


0036 8 


0599 A 


Q33D 


A 


001F 


3 


033C 


A 


0013 3 


033F 


A 


002B 


B 


KD 




KEEP 




KEEP E 


KEPC 


KF 




KFEOO 


KKPP 




KN 


KP 




LI 




0379 


A 


Q34B 


A 


03 F 7 A 


0550 A 


0016 


P 


048F 


A 


0581 


A 


054 B A 


054A 


A 


0346 


A 


LDR 




LOROM 




LEACR 


L EF 


LGECG 




LGECQA 


LGETC 




LGETC A 


LINIT 


LIST 




006 8 


A 


0770 


A 


04F2 A 


066B a 


086B 


A 


08*0 


A 


0851 


A 


08AC A 


08A2 


A 


0318 


A 



LISTE LLL LLPP LLPP1 LQKSA LOKSE LOOP LOQPP L CR LP1 
037F A Q66E A 0498 A 04A5 A 0029 B 04EB A 0384 A 0470 A 07AB A 033C A 



REVISI3N-G 05/16/74 

PRMSFT P00343B 03/19//5 



04/02 5:41PM 
PAGE NUMBER 62 



LP3 


LPCDR 


LPLP 


t PUTC 


LPUTCA 


LREOCR 


LST 


LSTX 




LSWB 


LTEQ 


08 7 A A 


0060 A. 


049D A 


0835 h 


08A8 


A 


03 AE 


A 


06DB A 


06A9 


A 


0608 A 


OOOB A 


LWA1 T 


L W A I T A 


M4GGC 


MASK 


MAX 




MESS 




MESSA 






MM 5203 


MOVE 


047 0 A 


0025 B 


0609 A 


088C a 


03E1 


A 


0342 


A 


0011 8 


0012 


B 


06C0 A 


06B3 A 


MOVEE 


MOVI E 


MCVL 


MSG 


MUL2 




MUL4 




^ULT 


NBIN 




NCCMP 


NONC A 


06 AO - A 


06.60 A 


06B5...A 


06FF a 


Q3C9 


A 


03CA 


A 


04 OF A 


043F 


A 


04BB A 


03F0 A 


NEW 


NFRN 


NCf*ES 


NOTER 


NOTVAP 


NOVER 




NOW 


NCW2K 


NGW4K 


NOWREA 


06 OC A 


05C4 A 


03 68 A 


077C 4 


056A 


A 


0733 


A 


0361 A 


078F 


A 


0789 A 


052A A 


NPR 


NREAO 


NST ART 


NZRG 


00 




ODD 




CGOOO 


OHEX 




CHEXA 


OLD 


0402 A 


053D A 


0300 A 


0005 A 


0577 


A 


00 0 3 


A 


04E5 A 


0380 


A 


0026 8 


0614 A 


ON 


CN2 


ONE 


CNGO 


OOP 




PAC 




PAGAIN 


PCKSM 


PDGNE 


PGECO 


04 5 A A 


04-58 A 


045 E A 


04C7 a 


045D 


A 


0713 


A 


0746 A 


0514 


A 


0762 A 


0880 A 


PGECCA 


PGFTC 


PGETCA 


PNTAPc 


POA 




PPFCM 




PPUTC 


PPUTCA 


PRCK 


PRE AO 


0890 A 


08 4 C A 


0850 A 


04.F6 A 


OOOC 


A 


0429 


A 


0848 A 


084B 


A 


056D A 


049 5 A 


PREAS 


PRLGP 


PRLP 


PROT 


P ROT EC 


PSTAR 




PSTART 


PT 




PT1 


PTOATA 




0575 A 


057.2 A 


073F A 


0609 


A 


03F8 


A 


03FC A 


0632 


A 


0634 A 


0680 A 



PTON 


PTNG 




PTNGI 


PTRLH 


PUTC 


PUTI T 




RO 


Rl 




R2 




0668 A 


0654 


A 


0639 A 


06 7 B a 


OOOD E 


05 5 A A 


0021 3 


002C B 


002O 


B 


.0.02 £ 


B 


R3 


READ 




READ2 


READB 


REAOCR 


R.EAOWA 


READWD 


RECV 


RED 




REDCR 




002F B 


0462 


A. 


0615 A 


0524 a 


05DF A 


0028 B 


0465 A 


0443 A 


0444 


A 


0032 


B 


REDCRL 


R ERROR 


RFTRR 


RETRV 


RLIST 


RLL 


ROM 


ROMI 


RCMIA 


ROMV 




JX5.9 A. A 


.0532 


A 


,0860 A 


037A A 


0474 A 


06.62 A 


0022 B 


0490 A 


0014 


B 


076A. 


A 


RPN 


RR 




RST 


S2K 


S4K 


SAVE 


SAVER 


\^ %•* 


SB 




S8iT 




05 ID A 


0020 


B 


.089 F A 


03C4 A 


03BF A 


0356 A 


08 54 A 


0031 B 


0756 


A 


0460 


A 


SEBD1 


SEL 




SEND 


SENDA 


SETK 


SETK 1 


SETPL 


SFLGS 


SLCP1 




SMTHNG 


0457 A 


OOOD 


A 


043E A 


0456 A 


0 3AC A 


03AF A 


OOOB B 


003 0 B 


05EF 


A 


0319 


A 


SPAC 


SPACA 


SPACE 


SPACEi 


SPCC 


SRG 


SRGL 


SRGLL 


SRGLO 


SSETPL 


043C A 


0015 


B 


0304 A 


0305 A 


036 A A 


06BC A 


06C6 A 


06CB A 


06C7 


A 


089A 


A 


STAND 


START 


STAR TA 


STATUo 


STDATA 


STEP1 


STEP2 


STEP3 


STRA 




SWBUF 


0002 A 


035B 


A 


014 A A 


0001 a 


0690 A 


05EB A 


05F7 A 


05FF A 


0513 


A 


0023 


9 


T2K 


TA 




TBFAH 


TBI 


TBUF 


TE^PCK 


TEMPT 


TEMPWC 


TNG! 




TORS 




0397 A 


0029 


A 


.0034 B 


0825 a 


OCOO A 


04 33 A 


OOOF A 


0463 A 


0598 


A 


069A 


A 



TOR SC 



TS TTA TTAA TTYAO TTYSR UL V4K0N VAIR VAIRA 
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VAR VARA VOCM VEFR V ERF V* 5 VST APT WATT WHAT WHERE 

0424 A 0540 A 0794 A D7ES * 07D8 A 03FA A 03F1 A 0437 A 0019 B 001A.8 

WORK WRITE NR J TEW toTLQP X A D A XMIS YES ZERO ZEROF ZRO 

0704 A 0461 A 043A A C59F * 0427 A 0819 A 06A6 A 0001 A 04A0 A 04A8 A 

ZROM 
04B3 A 
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